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Summary 

Methods developed at the NASA Lewis Research 
Center for predicting the noise contributions from 
various aircraft noise sources have been programmed 
to predict aircraft noise levels either in flight or in 
ground tests. The noise sources include fan inlet and 
exhaust, jet, flap (for powered lift), core 
(combustor), turbine, and airframe (from the NASA 
Langley Research Center). Noise propagation 
corrections are available for atmospheric 
attenuation, ground reflections, extra ground 
attenuation, and shielding. Outputs can include 
spectra, overall sound pressure level, perceived noise 
level, tone-weighted perceived noise level, and 
effective perceived noise level at locations specified 
by the user. Footprint contour coordinates and 
approximate footprint areas can also be calculated. 
Inputs and outputs can be in either System 
International or U.S. customary units. 

The subroutines for each noise source and 
propagation correction are described in detail. Inputs 
required and some sample inputs and outputs are 
given in tables. A complete listing is given in 
appendix B. Symbols are defined in appendix A. The 
program is available through COSMIC to qualified 
users. 


Introduction 

In addition to the prediction procedures for 
aircraft noise available through the Aircraft Noise 
Prediction (ANOP) program at the Langley Research 
Center, it is often valuable to have a user -owned 
prediction procedure that can be run on a modest- 
sized computer and modified by the user as the need 
arises. The program described in this report was 
written in Fortran IV for an IBM 360 machine, but it 
can be run on any Fortran-language computer with at 
least 120 000 bytes (30 000 words on IBM 360) of 
program storage available. The inputs and outputs of 
the program are straightforward, compact, and easy 
to understand. It should not be difficult for the user 
to modify the program or to add subroutines to those 
described. 

Various source noise prediction methods were 
developed at the Lewis Research Center (refs. 1 to 5) 
in support of the ANOP program at Langley. During 
the development of these prediction methods, it 


became obvious that computer-programmed versions 
were required for adequate checkout. By adding to 
these computer programs the capacity to solve the 
geometrical relationships between an aircraft in flight 
and an observer on the ground, these programmed 
predictions were made useful in evaluating noise 
estimates and footprints for various proposed engine 
installations being studied. For example, such studies 
have included simulated flights of the Quiet Clean 
Shorthaul Experimental Engine (QCSEE) and of the 
Quiet Shorthaul Research Aircraft (QSRA) with 
Avco-Lycoming YF-102 engines that were tested at 
Lewis (ref. 6). Test stand acoustic measurement 
results were compared with static predictions for the 
engine sources. The degree of correspondence 
between these predicted and measured results 
indicated the applicability of the predictions to these 
particular engine systems. Predictions for these 
engines in flight were then made, with corrections for 
installation and flight effects contributing most of 
the uncertainty. 

There are two main program versions for using 
these prediction routines: The first (FOOTPR) is a 
procedure to calculate at various observer stations 
the time history of the noise (as spectra, OASPL, 
PNL, and PNLT) for an aircraft flying a specified set 
of speeds, orientations, and space coordinates. The 
various components of the noise are predicted by 
methods prepared at Lewis under ANOP activity 
(except for the airframe). For each individual source 
the levels are free field with no corrections for 
propagation losses other than spherical divergence. 
The total spectra can be corrected for the usual 
effects of atmospheric attenuation, extra ground 
attenuation, ground reflection, and aircraft 
shielding, and the corresponding values for overall 
sound pressure level (OASPL), perceived noise level 
(PNL), and tone-weighted perceived noise level 
(PNLT) are then calculated. From the time history at 
each point, true effective perceived noise levels 
(EPNL) are calculated. Values of EPNL, maximum 
PNL, or maximum PNLT are thus found as desired 
for a grid of specified points on the ground. It is 
worth noting that time-integrated EPNL’s are 
calculated in this program. This implies that a time 
history is generated for each desired point on the 
ground, and hence a substantial amount of 
calculation time may be required. 

The second main program is called RADIUS and is 
designed to give the usual format of one-third-octave 


sound pressure level (SPL) values at a fixed radius 
for a number of angles selected by the user. This 
program uses the same noise source subroutines as 
does FOOTPR and has served as a convenient 
method for checking the programming accuracy of 
the predictions. 

Each noise source subroutine (except AIRFR) has 
been checked against the sample problems and 
calculated results in the source documents. For 
example, the fan noise predictions made by using 
RADIUS were compared with the output spectra at 
each fan speed and microphone angle as plotted in 
reference 1. Although in a few cases there were 
discrepancies of up to 2 decibels at some points 
within a spectrum, these were checked with the 
author (Heidmann) and the results from the FAN 
subroutine were judged to be as good as or superior 
to the published curves. Where no example or 
reference calculations are shown in the source 
documents, hand calculations were used to check 
representative levels from the source subroutines of 
this program. The results from AIRFR were checked 
with results from the ANOP program at Langley and 
were found to be within 1 decibel. 

The main programs and their subroutines are 
discussed in detail in this report. The programs are 
written to facilitate rapid calculations. Several blocks 
of COMMON are shared by different parts of the 
program to avoid repeated transfers of values 
through calling arguments from one subroutine to 
another. Fairly consistent patterns are followed for 
naming inputs and internal variables. Inputs are of 
the NAMELIST type and are grouped for 
convenience and clarity. Default values are supplied 
for many of the variables so that, if no value is given 
in the NAMELIST block, the default value is used in 
the calculation. Since data statements are used for 
some of the default values, the programs must be 
unloaded and reloaded between problems for any of 
these defaults to be reset. It is important that the 
NAMELIST blocks be supplied in the proper order, 
but any input block will be ignored if not called for. 
All calculations are made in U.S. customary 
(English) units of feet, seconds, pounds mass, 
pounds force, and degrees Rankine. When using the 
optional input in System International (SI) units, all 
dimensioned variables must be input in these units, 
and conversions are then made to U.S. customary 
units. Dimensions for all inputs are given in the input 
variable list. 


Detailed Program Descriptions 

Main programs FOOTPR and RADIUS and their 
subroutines are discussed in detail, and where 


appropriate the basic equations are presented, to give 
the user a familiarity with the general approach of 
the programs. Table I presents the equation numbers 
in the prediction documents for the individual noise 
sources. It is not intended that the following 
descriptions give a comprehensive view of the 
prediction methods themselves; the reader should 
consult the original documents (see reference list) for 
a more complete treatment of each subject. In figures 
1(a) and (b) flow diagrams are given for programs 
FOOTPR and RADIUS. The input data namelist 
blocks and the types of output available are 
illustrated along with the flow of information 
between the main programs and the subroutines. 
Most subroutines read their own namelist block of 
data the first time they are called. The order of these 
inputs is shown in table II. A complete list of 
variables for each of the input data blocks is given in 
table III. In FOOTPR the individual subroutines can 
be directed to print their own outputs as shown; total 
noise outputs come from NOIS and FOOTPR. In 
RADIUS all outputs from individual subroutines are 
returned to the calling program, which assembles 
them in the proper format for printing. In the 
Fortran coding (appendix B), all read statements for 
the inputs are identified with device number 5, and 
all output write statements with device number 6; for 
example, 

READ(5,TRAJ) WRITE(6,117) 

Main Program FOOTPR 

FOOTPR is the main program to calculate the 
needed geometric parameters between the aircraft 
source and the observer as a function of time. 
Observer locations are specified as a grid with NXO 
values of XO and NYO values of YO and one value 
of ZO. The aircraft flies past each observer, one at a 
time, along a path specified in XA, YA, and ZA 
(fig. 2). As illustrated in the flow diagram of 
figure 1(a), FOOTPR calls subroutine NOIS for 
noise predictions at time increments TD along the 
aircraft path. The user has the option of centering the 
time history on the closest point of approach of the 
aircraft to each observer or of starting the history at 
the first aircraft position given. FOOTPR also finds 
the maximum noise levels or calls for the EPNL 
calculation from the time history of the sum of the 
noise contributions. An iterative approach to finding 
contour coordinates for specified noise level contours 
is included in this program although it is not highly 
developed. 

After each time interval the position of the aircraft 
is calculated with respect to the X, Y,Z coordinate 
system (fig. 3). The orientation of the aircraft is 
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(a) FOOTPR. 

Figure 1. - Flew diagrams for programs FOOTPR and RADIUS. 
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(b) RADIUS. 
Figure 1. - Concluded. 















Unit vectors (a, w, and u) on the aircraft can then be 
related to the X,Y,Z coordinate system unit vectors 
(T, j, and C). Briefly, when a is in the engine inlet 
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w = i[sin(ALF) cos(HEAD) sin(GAM) - sin(HEAD) 
X cos (GAM)] + j[cos(HEAD) cos(GAM) 

+ sin(ALF) sin(HEAD) sin(GAM)] 

- k cos(ALF) sin(GAM) 


u = - i[sin(ALF) cos(HEAD) cos(GAM) 4- sin (HEAD) 
x sin(GAM)] + J[cos(HEAD) sin(GAM) 

- sin(ALF) sin(HEAD) cos(GAM)] 

+ k cos(ALF) cos(GAM) 


The position ^vector to the observer (fig. 4(a)) is 
R = bf+dj’-hk, where b = XA - XO, d = YA-YO, 
h = ZA - ZO. Then by letting 

BPD = b cos(HEAD) + d sin (HEAD) 




Figured - Source-observer geometrical relationships. 


DMB = d cos(HEAD) - b sin(HEAD) 

BPDPH = BPD sin(ALF) + h cos(ALF) 

the dot products can be simplified to 

R . a = BPD cos(ALF) - h sin(ALF) 

R . w = DMB cos(GAM) + BPDPH sin(GAM) 

R . G = DMB sin(GAM) - BPDPH cos(GAM) 

and the source-related angles THETA, THETAF, 
THETAH, and PHI (fig. 4(b)) are derived from 

cos(THETA) = (R.S)/R 

tan (THETAF) = - (R .u)/(R • a) 

tan (THETAH) = (R . w)/(R . a) 

tan (PHI) = - (R . w)/(R . u) 

In these geometrical relationships the assumption 
is made that the engines are concentrated at a central 
point on the aircraft with their centerlines coincident 
with the aircraft centerline. No attempt is made to 
account for the effects due to the placement of the 
engines on the aircraft, other than the overall effects 
applied for shielding. For cases when the engine 
centerlines are elevated with respect to the aircraft 
centerline, the inputs ALF1 should be given as the 
engine angle of attack, and a minor error in airframe 
noise directivity will result. 

The factor FDOP is calculated for Doppler 
corrections to the source frequencies and amplitudes; 
it is based on the angle ZETA, the direction of 
aircraft motion with respect to the observer (fig. 
4(a)); that is, 

cos(ZETA) = R . p/R = (b dX/dS + d dY/dS 

-h dZ/dS)/R 

where 

dS = SQRT(dX2 + dY2 + dZ2) 

and p is the unit vector in the direction of aircraft 
motion. The Doppler shift factor is then 

FDOP = 1 - (VI/C) cos(ZETA) 

Frequencies are divided by FDOP, and predicted 
levels are divided by FDOP to the EDOP power, 
where EDOP depends on the type of noise source. 
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Hence frequencies and levels both are increased as 
the aircraft approaches the observer and are 
decreased as the aircraft moves away. The angle 
VIEW is calculated by FOOTPR for use in 
calculating extra ground attenuation. 

The program includes default values set for a 6° 
aircraft climb to 5000-foot altitude at an aircraft 
velocity of 150 feet per second and 100 percent engine 
power, starting from XA = YA = 0, and ZA = 8 feet. 
Two observer default locations are at XO = 500 feet, 
YO = 500 and 1000 feet, and ZO = 4 feet. 

The first input read by FOOTPR is a title line 
supplied by the user in alphanumeric format (20A4). 
The remaining user inputs to FOOTPR are made in 
namelist blocks &GRID, &TRAJ, and &AMB (tables 
II and III). Block &GRID accepts inputs for the 
choice of SI or U.S. customary units (UNITS), the 
coordinates for the grid of observer points, and the 
number and level of noise contours to be calculated. 
Block &TRAJ accepts inputs for the number and 
coordinates of the points used to define the aircraft 
path. Aircraft orientation, velocity, engine power, 
flap and landing gear settings, choice of the number 
and size of time increments, and choice of some 
printout options are also entered in this block. The 
ambient conditions of temperature, pressure, and 
relative humidity are entered in block &AMB. 
Default values are supplied for many of the inputs to 
these blocks. 

After the program reads the inputs, times are 
defined along the aircraft path, starting with 
TSTART (default = 0) at the first aircraft position 
given (fig. 2). When the aircraft changes velocity 
between points, the acceleration is assumed to be 
constant so that the time between points is simply the 
distance divided by the average of the velocities. 

The time history used for noise calculations is 
controlled by the user’s input of the number (NT) 
and the size (TD) of the time increments and by 
ICPA: When ICPA = 0, the history starts with the 
first point of the aircraft trajectory. When ICPA = 1 , 
the time history is centered on the closest point of 
approach of the aircraft to the observer. When the 
closest point of approach is not well defined by the 
aircraft trajectory (such as in circling the observer), 
use ICPA = 0 to start the time history. 

For most aircraft trajectories the noise will 
maximize somewhere near the closest point of 
approach to each observer. Using the default value of 
ICPA= 1, the program calculates the coordinates of 
the closest point of approach. The first point for 
noise calculations (fig. 2) is then found as half 
(NT/2) of the time intervals (TD) before the closest 
point of approach. Succeeding noise point 
calculations are made at intervals of time (TD) along 
the flight path defined by XA, YA, ZA, and 
velocities VA. Note in figure 2 that for NT = 21 there 


are 10 points before and 10 points after the closest 
point of approach. The maximum number of time 
increments (NT) is 100. 

At time increments between the specified points of 
the aircraft trajectory, the aircraft velocity (VI)(as 
well as XI, YI, and ZI) is a calculated value assuming 
constant acceleration. Other trajectory inputs (as 
EPP, ALF1, GAM, PSY, FLAPA, ILGR, and 
IREVR) change only at specified trajectory points 
where new values are given. FOOTPR checks for 
changes in EPPI or VI between points, and if both 
are unchanged, sets ISKIP = 1 . ISKIP is used in the 
NOIS and JET subroutines to skip repeated 
calculations of variables that are unchanging. 
Subroutine NOIS returns values of PNL and PNLT 
to FOOTPR, which then stores the appropriate ones 
and selects PNL-max or PNLT-max or calculates 
EPNL as indicated by the user choice of IOUT(2) 
and IOUT(3)(table III). Note that if IOUT(3)>0, 
then IOUT(2) must either be zero or agree with 
IOUT(3). 

In the noise contour routine, for each value of XO 
the program calculates the noise level at two given (or 
default) values of YO and then extrapolates in a 
direction in Y for the first approximation for the Y 
coordinate of that contour level at XO, assuming 
that the level varies logarithmically with Y. As many 
as 10 iterative linear interpolations are then made to 
arrive at within 0.1 decibel of the desired level. The 
X,Y coordinates of that contour level are printed 
out, and the program proceeds to the next specified 
contour level. If the aircraft banks (GAM ^0) or has 
a flight path with nonzero YA values, the footprint 
will be asymmetric about the X axis. In this case the 
noise contour calculation should be repeated with 
negative inputs of YO to force the program to 
converge to the opposite side of the footprint. 

In calculating EPNL contours the program will 
have difficulty in converging for the Y coordinates if 
the number of time increments is too small or the 
increment size too large. The convergence routine 
assumes a smooth dependence of the level on the Y 
distance. If an inadequate time history is given, the 
EPNL subroutine extrapolates to the time when the 
noise history is 10 decibels below the maximum, 
based on the first two or last two points given. Any 
scatter or nonuniform behavior at these end points 
can result in sizable changes in the extrapolated end 
points for the time history and hence in the time 
interval over which the EPNL integration occurs. 
This can result in “wild” estimates being generated 
in the solution for the Y coordinate of the contour. If 
the program does not converge in 10 iterations, it 
prints a warning message and advances to the next 
point. If the user asks for the Y coordinate of a 
contour level higher than can be predicted at that XO 
position, the program cannot converge and prints the 
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warning. For a well-specified problem the routine 
usually converges in two to four iterations beyond 
the initial tries at YO = 500 and 1000 feet (default 
values). 

Noise contour (or footprint) areas are calculated 
by integrating the area between the first and last XO 
points on the contour, assuming that the contour is 
symmetric about the X axis. Sizable errors in area 
will occur if an insufficient span of XO locations is 
specified so that the contour points will not approach 
the end of the footprint. When the contour 
calculation fails to converge or erroneously 
terminates with a negative value for the Y 
coordinate, the calculated contour area will be in 
error. When the anticipated contours are not 
symmetric about the X axis, the user is advised to 
examine the contour shapes carefully and to be 
skeptical of the area calculations. In some of these 
cases, negative coordinates can be calculated (as 
mentioned earlier) by inserting negative starting 
values for YO; the footprint area can be found by 
averaging the two areas calculated for positive and 
negative values of Y. It should be obvious that the 
contour for a level aircraft flyover would extend 
without limit, and hence its area would be infinite; 
the calculation would only give the footprint area 
between the extremes of XO locations. 

The noise contour feature of this program should 
be used with some caution because of these cases 
where the simple interpolative iterations may not 
converge or where the area integration can be faulty. 
For accurate footprint contours and areas it is 
recommended that these procedures be limited to 
aircraft flight paths along the X axis. Exploratory 
calculations should be made by the user to find the 
noise levels along the X axis near the start and end 
(closure points) of the noise contours. From these, 
XO values near the closure points (but within the 
contour) can be chosen and made inputs, along with 
up to 18 intermediate XO values, for the footprint 
contour and area calculations. The number of XO 
points actually needed will depend on the complexity 
of the contour . The computer calculation time will be 
considerably shortened if each contour is separately 
calculated, with XO values entered that are 
appropriate to the footprint length of that particular 
contour. 

The indicator IGEOM was initially included when 
checking for proper geometry calculations in 
FOOTPR. However, the printout for IGEOM = 1 
has frequently been found useful in understanding 
complex geometry effects during noise calculations. 
Hence, it has been left available to the user as an 
option. When IGEOM = 1 and ICPA= 1, a printout 
message indicates the closest point of approach of the 
aircraft to the observer. 


Subroutine NOIS 

Subroutine NOIS is called by the main program 
FOOTP and then in turn calls the individual noise 
source subroutines, as shown in figure 1(a). In the 
input namelist block &SOURCE, NOIS reads the 
user choices of sources, propagation corrections, and 
output options. In this input the user may call for 
suppression to be applied (ISUPP = 1) to each source 
where a suppression spectrum is supplied. This 
choice can be overridden by the input of ISUPPR to 
each noise source subroutine. This subroutine also 
reads the input matrix of engine variables in 
&PARAM as an “engine map” and interpolates for 
the specific variables for each noise source. It will 
make standard corrections to these variables for 
actual-day conditions of ambient temperature and 
pressure, if desired. As can be seen for the inputs 
under &PARAM in table III, the names of the arrays 
of variables for the engine map are formed by 
prefixing “A” to the variable name itself. Because of 
the interpolation routine used, the engine parameters 
must be entered in order of increasing engine 
performance parameter (AEPP). 

The band center frequencies for other subroutines 
are generated in subroutine NOIS. One-tenth -decade 
frequency ratios are used rather than either one- 
third-octave frequency ratios or the “preferred” 
center frequencies. The frequency range for all 
calculations is from 50 to 10 000 hertz. Filter 
characteristics can be modified by entering FILBW in 
&SOURCE (default = 1.). FILBW is the fraction of 
the “ideal” filter bandwidth that has a gain of 1 
(fig. 5). In NOIS the frequency ratios where the filter 
gain is 1 and 0 are calculated for use in the 
apportionment of tone energy between adjacent 
bands in the FAN and TURB subroutines. 

Each noise source is then called in turn (fig. 1(a)) 
and results are summed for the total noise spectrum. 
Propagation corrections for atmospheric 
attenuation, extra ground attenuation, shielding, and 
ground reflection are made to the total spectrum as 
requested by the user, and then PNL and PNLT 
calculations are made. The propagation corrections 
are discussed individually later. 

Printouts from NOIS depend on the user input in 
IOUT(l). The choices include the total noise 
spectrum with OASPL, PNL, and PNLT or only 
OASPL, PNL, and PNLT at each trajectory point 
(table IV). Examples of these printouts are included 
later in this report. 

Main Program RADIUS 

The program RADIUS was devised to predict 
engine noise source levels at a fixed radius and at 
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Figure 5. - Idealized filter shapes for apportionment of fan and turbine tones. 


various angles, such as would simulate the ground 
acoustic testing of an engine. This program replaces 
programs FOOTPR and NOIS in calling the noise 
source subroutines, as shown in the flow diagram of 
figure 1(b). The first input is a title line supplied by 
the user in alphanumeric format. The remaining 
input data are entered in namelist blocks &GEOMT, 
&AMB, &SOURCE, &PARAM, and &OPER. 

The input block &GEOMT contains variables for 
defining the geometry (fig. 6) of the noise field. The 
polar and azimuthal angles are specified as arrays 
ATHETA and APHI, with NTHETA and NPHI 
values of each. The user indicates his choice of units 
also in this input. The angle VIEW can be entered if 
extra ground attenuation (IEGA = 1) calculations are 
desired. The source and observer heights (ZI and ZO) 
are also entered for use in the detailed ground 
reflection calculations (IGND = 2). 

Blocks &AMB, &SOURCE, and &PARAM serve 
the same purpose and include exactly the same 
variables as the same input blocks to FOOTPR and 
NOIS. This simplifies data input when both flyover 
calculations (by FOOTPR) and constant-radius 
predictions (by RADIUS) are desired. Ambient 
conditions of temperature, pressure, and relative 
humidity are entered in &AMB. In &SOURCE the 


user indicates the number of engines and selects the 
sources and sound propagation corrections to be 
used. The engine operating map is entered in 
&PARAM. 

The user indicates the operating point for the 
engine within the engine map by the value of EPPI 
input in block &OPER. For forward-velocity source 
level corrections, or for Doppler shift and source 
motion amplification, a single value of aircraft 
forward velocity (VI) is also entered in this block. 
For flap noise predictions the trailing flap angle 
(PSYI) must also be specified here. For airframe 
noise calculations the angle (FLAPI) of the slotted 
flaps (if present) and the indicator (ILG) for landing 
gear up or down must also be included. 

RADIUS interpolates from the engine map in 
&PARAM for the specific engine variables needed 
for each noise source and corrects these for actual- 
day ambient conditions in the same way that NOIS 
does. The actual input values used in the calculations 
for each source are listed in the output. Each noise 
source subroutine is called repeatedly for the angles 
required. RADIUS constructs a table of SPL values 
at each angle and frequency; calculates the acoustic 
power, OASPL, PNL, and PNLT; and prints a page 
of output for each source. If the data input block 


Source 



Figure 6. - Typical geometry of noise field for RADIUS predictions. Shewn here for default 
values of NTHETA = 19 microphone or observer positions and ATHETA located every 10P from 
0° to 180°. 
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&OPER is repeated, RADIUS will repeat the 
previous calculations and printout at a new operating 
condition specified in &OPER. 

The calculated acoustic power spectrum is an area- 
weighted integration of the SPL values at the 
specified angles, assuming that the source is 
axisymmetric. For nonaxisymmetric sources, the 
levels calculated at the first value of APHI (usually at 
PHI = 0°) are assumed to be axisymmetric and are 
integrated for an approximation to the acoustic 
power. True acoustic power for these sources would 
require a two-dimensional integration over both 
THETA and PHI. This sophistication is not 
programmed into RADIUS. The reference level in 
this program for the acoustic power is 0.1 picowatt, 
whether U.S. customary or SI units are used. 
Caution is advised when comparing acoustic power 
levels from these predictions with published power 
levels, especially from Europe, where the usual 
reference level is 1.0 picowatt. 

It should be remembered that PHI, the angle in the 
sideline direction (fig. 4(b)), is defined with respect to 
the aircraft coordinates. When making acoustic 
measurements on a static test stand, in the case where 
the noise source is not axisymmetric, the 
experimental package is frequently rotated so that 
the PHI = 0° plane is parallel to the ground. 
Microphones at the source height are then measuring 
in the flyover plane. Predictions to simulate this case 
using RADIUS are made with PHI = 0°. 


Subroutine FAN 

Subroutine FAN is programmed from reference 1 
(Heidmann). It predicts the total fan noise from inlet 
and exhaust ducts. By specifying IEXH the user can 
choose to exclude inlet or exhaust noise. 
Combination tones (“buzz” or multiple pure tones) 
are included when the rotor relative tip speed is 
supersonic (TIPM>1). Tone and broadband noise 
contributions are predicted separately and added. 
For a two-stage fan the noise from both stages is 
added; no attenuation is applied to first-stage fan 
exhaust noise because of the second stage. 

This subroutine requires that the inputs of fan 
mass flow (AWAFAN), fan speed (ARPM), and 
temperature rise (ADELT) or pressure ratio (AFPR) 
be entered in the &PARAM input to subroutine 
NOIS. Inputs of the fan tip relative Mach number 
(ATIPM) (including second-stage ATIPM2, if 
appropriate) should be made also in &PARAM if 
available. If DELT is not supplied as ADELT in 
&PARAM, the fan pressure ratios (AFPR) are 
required in &PARAM, and DELT is calculated from 
FPR and the fan efficiency (FANEFF). 

The temperature at the fan face is found by 


interpolation based on the specific weight flow and is 
used to calculate the speed of sound (CX) at the fan 
face. This is used in the rotor tip (RTSM) and rotor 
relative tip (TIPM) Mach number calculations. When 
available, TIPM should be obtained from velocity 
diagrams for the rotor blades and supplied as 
ATIPM in &PARAM, especially when the fan has 
inlet guide vanes (IGV = 1). If ATIPM is not 
supplied, TIPM is calculated as the right-angle vector 
sum of the inlet air flow (AIRM) and rotor tip 
(RTSM) Mach numbers. If TIPM2 is not supplied 
for the second stage, it is approximated as TIPM 
times the ratio of design relative tip Mach numbers 
(TIPMD2/TIPMD). 

The rotor fundamental tone cutoff number is 
calculated from RTSM and the vane-blade ratio. As 
prescribed in reference 1 , when the cutoff number is 
below 1.05 and the rotor tip speed is subsonic 
(RTSM < 1), the tone level is reduced 8 decibels. 

Combination tones are treated as three broadband 
sources with spectra peaked at one-half, one-fourth, 
and one-eighth of the blade passing frequency. These 
three sources are added for the total combination 
tone levels. It has been recognized that reference 1 
overpredicts the combination tone levels for most 
fans by as much as 5 decibels. For the convenience of 
the user an option has been made available to lower 
the combination tones by specifying a decrement 
DECMPT (in decibels) in the &FANDA input. 

In fans without inlet guide vanes (IGV = 0), the 
rotor-stator spacing (RSS) to be entered is the axial 
spacing between rotor and stator divided by the axial 
projection of the rotor mean chord, in percent. In 
fans with inlet guide vanes RSS is the lesser of this 
rotor-stator spacing and the vane-rotor spacing 
found by dividing the space between the inlet guide 
vanes and the rotor by the chord of the vanes 
(fig. 6(a) of ref. 1). When IGV=1, the broadband 
and tone levels from the exhaust duct are increased 3 
and 6 decibels, respectively; the harmonics above the 
fundamental in the inlet duct are reduced 6 decibels; 
and combination tones (if present) are reduced 
5 decibels. 

Doppler shift and source motion amplification are 
applied if IDOP = 1 . The exponents for the source 
amplification are set at 4 for both the fan first and 
second stages, assuming that both sources behave as 
convected compact dipoles; the user can modify these 
exponents by inputs of EDOP and EDOP2. Values 
of EDOP are not passed between subroutines so that 
a change in EDOP in FAN will not affect the default 
values for EDOP in other subroutines. When there is 
inlet flow distortion to the fan, IFD should be set 
equal to 1 and (as prescribed) tone and broadband 
levels will be modified by allowing no benefit for 
rotor -stator spacing over 100 percent; tone 
harmonics will also fall off more rapidly. 
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Tones and their harmonics (except for 
combination tones) are sorted by frequency and 
added to the appropriate band levels. When 
FILBW=1., the filters for these bands are ideal. 
When FILBW <1., the energy of the tones that fall 
near the edge of a band is divided proportionally 
between that band and the adjacent band (fig. 5). 
Simple suppression spectra can be applied to the fan 
inlet and exhaust duct noise levels. The suppression 
spectra are SUPP1N for the inlet duct and SUPPEX 
for the exhaust duct; 24 values of each are entered in 
&FANDA. The indicator 1SUPP in &SOURCE, or 
ISUPPR in &FANDA, must be set equal to 1; if 
1SUPPR is supplied here, it will override the value of 
ISUPP from NOIS in controlling suppression 
imposed on the fan spectra. 

The 1979 printing of reference 1 corrects the 1975 
printing, which contains two errors in the equations 
shown in the figures for inlet broadband noise levels 
and inlet tone levels. In the 1975 printing the third 
equation in figure 4(a) must be modified by 
subtracting 0.91515 from the right side. In 
figure 10(a) the fourth equation should omit the term 
20 log MTRD. 

Subroutine JET 

Subroutine JET is based on reference 2 (Stone), 
excluding the portion for predicting reverser noise. 
The user must specify the type of nozzle (simple 
conical, conical with plug, slot, or coannular). The 
effects of forward velocity or flight on the source 
intensity level can be included by setting IFWD= 1. 
When engine conditions and aircraft velocity are 
unchanging between calculation points, FOOTPR 
sets ISKIP= 1 and a shortened set of calculations is 
used in JET. 

For the core flow this subroutine requires inputs of 
the velocity (AVC) and the temperature (ATC) of the 
flow from the nozzle to be entered in the &PARAM 
input. The program can calculate the values of the 
core specific heat ratio (GAMMAC) and gas constant 
(GASRC), if the user includes values of the core 
weight flow (AWCORE) and fuel flow (AFUEL) in 
&PARAM. This calculation is based on typical 
values for “A-l” jet fuel (fig. 7), with a hydrogen- 
carbon ratio of 0.16 and a lower heating value of 
43 242 joules per gram (18 600 Btu/Ib) of fuel. 

The geometry for different types of exhaust 
nozzles is shown in figure 8. For a plug nozzle the 
annular height around the plug (ANNHT) must be 
supplied. For a slot nozzle the hydraulic diameter 
(DHC) of the nozzle is required. 

For coannular flow the fan velocity (AVF) and 
temperature (ATF) must be included in the 
&PARAM input. Note that the coannular noise 
prediction is not valid for a fan flow heated with 


Initial 

temperature. 

T3R, 




Fuel-air ratio, FAR 


Figure 7. - Properties ol burned gas in core flow. 



(a) Conical. 



(b) Plug. 



(c) Slot. P = 2a + 2b; 
DHC = 4 4 AC/P. 



(d) Coannular with plug. 

Figure 8. - Nozzle geometries for jet noise calculations. 
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respect to the core flow. The annulus height 
(ANNHTF) may be given as input; otherwise it will 
be calculated from the areas, assuming that the 
nozzle contours are circular and that the inner fan 
nozzle wall is of negligible thickness. If the annulus is 
noncircular, the hydraulic diameter DHF must be 
given. 

For both core and fan flows, when the flow is 
supersonic, the shock noise is calculated separately 
and added to the subsonic noise calculation. Source 
motion amplification (Doppler) is applied to the 
shock noise contributions if IDOP = 1 ; the user can 
modify the exponent for this amplification from its 
default value of 1 (assumes a distributed monopole 
source) by inputting EDOP. 

Several modifications to this method of jet noise 
prediction have been suggested by Stone (refs. 7 to 9) 
but have not yet been incorporated into this 
programmed version. These modifications include 
improvements in predicting the effects of flight 
velocity and a capacity to predict jet noise in the case 
of a heated fan stream (inverted velocity profile). 


Subroutine CORE 

Subroutine CORE predicts the low-frequency core 
noise resulting from the combustor, as in reference 3 
(Huff, et al.). Inputs of core flow (AWCORE) and 
combustor pressure (AP3) are required in 
&PARAM. Combustor inlet and exit temperatures 
(AT3 and AT4) should also be supplied in &PARAM 
if available. If AT3 values are not supplied in 
&PARAM, the value of T3 will be calculated 
assuming isentropic compression and using the user- 
supplied or default value of the core flow specific 
heat ratio (GAMMA). If AT4 values are not 
supplied, the temperature rise in the combustor will 
be calculated from the fuel-air ratio, assuming 
“A-l” fuel, to give an approximate T4. If desired 
(setting IMOD = 1), the program will use a modified 
noise level prediction based on the correlation 
equation of reference 10 (Matta, et al.). The 
modified prediction requires the added input of the 
design temperature drop through the turbine 
(DTEMD); both methods predict the same levels 
when DTEMD is 728.62° R. Both versions use the 
same simple directivity curve and single spectrum. 
The peak frequency of the spectrum is arbitrarily set 
at 400 hertz if the calculated peak is less than 
300 hertz or greater than 1000 hertz, as recommended 
in reference 3. 

Doppler frequency shift and source motion 
amplification can be effected by setting IDOP = l; 
the exponent on the amplification factor is normally 
2 (ref. 2) but can be modified by inputting EDOP. 
Core suppression can be applied by setting 


ISUPP = 1 in &SOURCE input or ISUPPR = 1 in 
&COREDA and supplying a suppression spectrum 
(CSUPP). 


Subroutine TURB 

In subroutine TURB the tones and broadband 
noise produced by the turbine are calculated by the 
recommended procedure of reference 4 (Krejsa, et 
al.). The prediction is basically for the last stage of 
the turbine but, by proper input of parameters, could 
apply approximately to any one of the low-pressure 
turbine stages. Inputs of the turbine exit temperature 
(ATCTUR), fan speed (ARPM), and core weight 
flow (AWCORE) are required in &PARAM. The 
turbine rotor relative tip speed (ATURTS) should 
also be included in the &PARAM input if available. 
Otherwise, the program estimates TURTS as 0.7 of 
the rotor tip speed. 

In many cases involving some mixing in the 
exhaust nozzle, the turbine exit temperature 
(TCTUR) is not the same as the core nozzle 
temperature (TC) for jet noise calculations. How- 
ever, if ATCTUR is omitted in &PARAM, the NOIS 
subroutine assumes TCTUR = TC for use in the 
turbine noise prediction. 

The turbine rotational speed is obtained from the 
fan speed (RPM) and the gear ratio between the low- 
pressure turbine and the fan (GEAR). The levels of 
the first four harmonics of the rotor blade passing 
tone are calculated, although some are usually above 
the frequency range of interest. 

As in subroutine FAN the frequency bands into 
which the tones are sorted are one-tenth decade 
rather than one-third octave. When FILBW < 1 in 
&SOURCE, tones near the band edges are split 
between adjacent bands by applying a gain factor 
(FR) (fig. 5). The broadband noise peaks at the 
center frequency of the band containing the 
fundamental tone, unless this is above 10 000 hertz. 
In that case the broadband peak is set at the actual 
fundamental tone frequency; only the lower 
frequency side of the spectrum is then of importance 
in the noise predictions. 

The level of the turbine tones is decreased by 
10 decibels depending on the type of exhaust 
configuration (fig. 9). For turbojet configurations, 
or turbofans with the fan nozzle coplanar with or 
shorter than the core nozzle exit, set ITYPTB equal 
to 0 and no adjustment will be made. For turbofans 
with the fan nozzle extending beyond the core nozzle 
(such as on the JT8D), set ITYPTB equal to 1 and the 
tone levels will be decreased by 10 decibels. This 
adjustment is specified in reference 4. 

Particular attention should be given the spacing 
factor CS as used in this program; it is the ratio in 
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Fan exhaust 




(b) Extended fan nozzle (ITYPTB ■ 1). 

Figure 9. - Types of exhaust nozzle affecting turbine noise 
levels. 


percent of the axial projection of the upstream stator 
chord to the axial spacing between the stator and the 
rotor (100 x c/s in fig. 7 of ref. 4). For most cases, CS 
in greater than 100 percent. 

The exponent on source motion amplification 
when IDOP = 1 can be modified from its default 
value of 4 (ref. 4) by inputting EDOP. If turbine 
noise suppression is desired (ISUPP = 1 or 
ISUPPR= 1), a suppression spectrum (TSUPP) must 
be supplied. 

The prediction equations and curves of reference 4 
include standard-day atmospheric attenuation at a 
distance of 45.7 meters (150 ft). In TURB the amount 
of this attenuation is added to the calculated levels to 
give an output spectrum for free-field “lossless” 
conditions. 

Subroutine SHLD 

Subroutine SHLD is a temporary approach for 
making a shielding correction based separately on 
shielding by the wings and by the fuselage. This 
subroutine is not intended as a prescribed method of 
calculating shielding effects; it only allows the user 
an option for making some approximate corrections 
based on his own experience. It is an attenuation 
approximation in decibels to be applied in certain 
directions, as a function of frequency. It assumes 
that only the fan, jet, core, and turbine noise sources 
can be shielded. This subroutine is called by NOIS or 
RADIUS. 

Fuselage shielding is applied only when the 
direction (fig. 10) is within 20° of the wingtip 
direction (PHI >70°). It maximizes at 
THETAH = 90° with a user-supplied maximum of 
SFUSE in decibels. The width of the intense region of 
shielding can be specified by SWIDE (figs. 10 and 
11(a)), defined as the angle, in degrees, over which 
the fuselage shielding is within 1/e of SFUSE, or 



p6.i w : , 

? 0 ° 

■m 


SFUSE, dB 



Figure 10. - Region ot fuselage-shielding component for 
approximate shielding calculations. 


SFUSE 


SFUSEIe 



90 

THETAH. deg 

(a) Fuselage shielding, for PHI>7tP. 



(b) Wing shielding, lor over-the-wing configuration. 

Figure 11. - Approximations used for shielding calculations. Total 
shielding ■ DELF for fuselage + OELW for wing. 


SFUSE/2.718... . At low frequencies, when the 
sound wavelength exceeds a user-supplied 
characteristic dimension of the fuselage (CFUSE), 
such as its diameter, the amount of fuselage shielding 
decreases proportionally to the sound frequency. 

Wing shielding approximations apply only in the 
case of over-the-wing engine installation 
configurations. Over-the-wing shielding 
(IUOTW = 1) (fig. 12) varies with the product of two 
factors dependent on THETAF and PHI as shown in 
figure 12(b); the user supplies the maximum shielding 
(SWING) and direction of maximum shielding 
(SMX). When the sound wavelength exceeds the 
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Figure 12. - Regions of wing shielding component for approximate shield- 
ing calculations, for over-the-wing configuration only. 


user-supplied wing dimension (CWING), such as its 
chord, the wing shielding decreases proportionally to 
the frequency. 

Subroutine FLAP 

Under-the-wlng (UTW) or over-the-wing (OTW) 
powered-lift noise is calculated by subroutine FLAP, 
which is based on reference 5 (Dorsch, et al.). This 
source is sometimes called “jet/flap” noise and 
includes the noise contribution of the free jet as well 
as any scrubbing and edge noises. Therefore, when 
subroutine FLAP is called (IFLAP=1), subroutine 
JET should not be used, as the jet noise is already 
included in the flap noise prediction. The flap noise 
produced is not axisymmetric and requires angles 
THETA, THETAF, and PHI from FOOTPR (or 
RADIUS), where THETAF is the projection of 
THETA on the plane of PHI = 0° (fig. 4(b)). 

This subroutine requires values of core flow 
exhaust velocity (AVC) in the &PARAM input and, 
if there is a fan flow, values of the fan nozzle exhaust 
velocity (AVF). 

For both UTW (IUOTW = 0) and OTW 
(IUOTW = 1) cases the overall levels are predicted in 
the reference direction (THETAF = 90°, PHI = 0°), 
based on the type of nozzle, the flap angle, and the 
exhaust velocity. The levels are then modified by 
appropriate directivity terms. The exhaust velocity 
used in the calculations depends on the nozzle 
configuration. For a simple conical nozzle 
(INOZ = 0)(fig. 13(a)) the exhaust velocity is the 
average velocity at the nozzle exit; the nozzle area 
(AC1) is required in the &FLAPDA input. For the 
unmixed coaxial nozzle (INOZ= l)(fig. 13(b)) the 
procedure uses an area-weighted, sixth-power 
average of the velocities; areas AC1 and AF1 are 
required input in &FLAPDA. For a mixed-flow 
exhaust (INOZ = 2)(fig. 13(c)) a bypass-ratio- 

weighted average velocity is used; in this case the 
velocities AVC and AVF in &PARAM should be for 
each stream ideally expanded individually to ambient 
conditions; AC1, AF1, and the bypass ratio (BPR) 
are required in &FLAPDA. 



(a) Simple conical nozzle. 



AFI 


(b) Coaxial nozzle. 



Ic) Mixer nozzle. 

Figure 13. - Nozzle geometries for flap noise. 

(BPR = bypass ratio. ) 

The flap angle (PSYI) is the angle between the 
wing chord and the trailing flap chord. This angle is 
entered either as an array PSY in the &TRAJ input 
when using FOOTPR or as a single input PSYI to the 
&OPER input when using RADIUS. 

The prediction of UTW noise in reference 5 
distinguishes between configurations sensitive to the 
flap angle (PSYI) and those relatively insensitive. 
The two-flap model configuration of Figure 10(a) of 
reference 5 can be taken as an example of a 
“sensitive” configuration (INSENS = 0), where the 
area impinged by the high-velocity exhaust decreases 
appreciably when the flap angle is reduced from the 
large value typical of a landing condition to a low 
value that might represent a typical takeoff 
condition. In this case the flap angle dependence is 
given by equation (11) of reference 5. When the 
impingement area is relatively insensitive to flap 
angle, as with the three-flap model of figure 10(a) of 
reference 5, INSENS = 1 in the &FLAPDA input and 
equation (16) is used for the flap angle dependence. 

In the UTW configurations of reference 5 the ratio 
of wing chord to overall nozzle diameter (WINGD) is 
roughly 3. For engines with very large bypass ratios, 
this ratio may be considerably less than 3 so that the 
wing and flap area impinged by the exhaust flow 
scales better with nozzle diameter than with nozzle 
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area. An approximate correction for this case can be 
made by entering a value of WINGD less than 3; a 
value of WINGD = 2, for example, causes a 
1.76-decibel reduction in the predicted levels. 

The coefficient BETA for the PHI-angle 
dependence of the directivity for the UTW 
configuration (eq. (14) and fig. 14 of ref. 5) changes 
rapidly near the wingtip direction as originally 
defined. This programmed prediction uses THETA 
instead of THETAF for the abscissa of figure 14, 
because of the anomalies that would be produced by 
rapid changes in THETAF as THETA and PHI 
approach 90°. Although this involves a reinterpreting 
of the directivity data, the changes are not large, and 
disturbing fluctuations in level in the sideline 
direction are avoided. 

The OTW directivity term with PHI-dependence is 
modified from that of reference 5 to include data for 
PHI >90°. In addition, this term is multiplied by 
sin(THETA) to eliminate PHI-directivity changes as 
THETA approaches 0° or 180°. 

For the UTW configurations, relative airspeed 
effects on the source noise level can be obtained by 
setting 1FWD = 1 . The coefficient CAY for this effect 
depends on the flap angle (PSYI) and THETAF and 
is given by figure 18 of reference 5. No relative 
airspeed effect is made for the OTW configuration. 





(c) Landing gear numbers NG. wheel numbers NW, 
tire diameters DW. and strut lengths CGxDW. 

Figure 14. - Airframe noise geometry. 


Doppler frequency shift and source motion 
amplification are made when IDOP = l. The 
exponent EDOP for the amplification factor can be 
modified by the user from the default value of 4. 

A suppression spectrum can be applied to the 
predicted flap noise spectrum by setting 1SUPP = 1 
or ISUPPR = 1 and supplying the suppression 
spectrum (FLSUPP). 

Subroutine AIRFR 

Subroutine AIRFR calculates the airframe noise 
resulting from airflow over the wing and tail 
surfaces, over slotted flaps when deflected, over 
landing gear when deployed, and from leading-edge 
slats when present (fig. 14). The prediction method is 
basically that of reference 11 (Fink), but slight 
modifications are made in constants and slopes as in 
the ANOP program, Langley Research Center. This 
subroutine is only a reprogramming of the ANOP 
program. For input in &AIRFDA the areas and total 
spans of the wing, horizontal tail, vertical tail, and 
deflected flaps are grouped as areas A and spans B, 
each with four dimensions. The span of the vertical 
tail is simply its height. The landing gear 
characteristics of number of landing gear (NG), 
number of wheels per gear (NW), tire diameter of the 
wheels (DW), and ratio of strut length to tire 
diameter (CG) are each two-dimensional, with the 
value of each for the nose gear to be given first, 
followed by the value of each for the main gear. 
Inputs of ICLEAN and ITYPW allow for the 
adjustments for a “clean” configured aircraft and 
for a delta or conventional type of wing. 

Choices of the type of sources to be included can 
be indicated by inputs of IWING, IFL, ISLAT, and 
ILG. Rather than a single choice for landing gear 
noise (ILG), values of ILGR can be entered in the 
&TRAJ input to FOOTPR, so that the gear can be 
lowered or raised during the flight. For the slotted- 
flap aerodynamic noise, values of the flap angle 
(FLAP A) must also be entered in &TRAJ. All source 
frequencies will be Doppler shifted if IDOP = l; 
source motion amplification is part of the prediction, 
so no additional FDOP factor is provided for. 

Function Subroutine AIRATT 

Function subroutine AIRATT calculates 
atmospheric attenuation of noise according to 
reference 12 (ARP 866). The program is an 
adaptation of one written by Dr. Frank Montegani of 
Lewis Research Center (ref. 13). It assumes that the 
attenuation of noise in a frequency band is the same 
as the attenuation of a pure tone at the center 
frequency of that band. It is called by NOIS or 
RADIUS when IATM = 1. 
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Subroutine ATMB 

Subroutine ATMB calculates the atmospheric 
attenuation of a pure tone by using the method of 
reference 14 (Bass and Shields). It is called by the 
subroutine BAS AT for band attenuation. Results 
from this attenuation prediction procedure are more 
accurate at high frequencies and long distances than 
those from reference 12. The programming of 
reference 15 is modified for use here. 

Subroutine BASAT 

Subroutine BASAT is a general procedure for 
adding or removing the effect of atmospheric 
attenuation on a fractional-octave-band spectrum. 
Approximations are made for the effect of the 
spectrum gradient in the region of the band being 
considered. This procedure, rather than ARP 866 
(ref. 12), is used for calculating atmospheric 
attenuation in each band when IATM = 2. This 
subroutine is called by either NOIS or RADIUS. 
Programming is an adaptation of that detailed in 
reference 15. 

Subroutine EGAC 

Subroutine EGAC is adapted from reference 16 
(Boeing), which includes a procedure for extra 
ground attenuation calculation based on the 
prediction by SAE AIR 923 (ref. 17) for turbulent 
scattering of noise (downwind direction). The 
program interpolates for two factors based on the 
distance R and elevation angle (VIEW) (fig. 4(a)). 
The predicted attenuation diminishes to zero at 
VIEW = 45°. This subroutine is called by NOIS or 
RADIUS when IEGA = 1 . 


Subroutine GNDRFL 

Subroutine GNDRFL, which calculates the 
modifications to the spectrum due to ground 
reflection (fig. 15), is based on reference 18 
(Putnam). Broadband noise is treated as white noise, 
and tone effects will be included if ITONE=l; an 
individual spectrum band is then treated as a tone if it 
protrudes above the surrounding bands by 3 decibels 
or more. A distributed noise source can be 
approximated as (NS) discrete sources at several 
heights (DK) relative to the source center. The 
ground characteristics are given in terms of its 
reflectivity (QABS) and the phase shift (FSHIFT) of 
the reflected sound waves, both as a function of 
frequency. This subroutine is called by NOIS or 
RADIUS when IGND = 2. 



A r= r ' - R = R lz' - 1) 

Figure 15. - Geometry of ground reflections. 


Function Subroutine PERNOY 

Function subroutine PERNOY calculates the 
perceived noise levels (PNL) from the individual 
spectra and the total noise spectrum by ARP 865A 
(ref. 19). It contains a warning if any of the spectrum 
band levels exceed 150 decibels, which is the upper 
limit of the procedure. This subroutine is called by 
each individual noise source subroutine and by NOIS 
or RADIUS for the total noise. 

Function Subroutine TONE 

Function subroutine TONE calculates the tone 
correction to PNL to give PNLT. This is a 
programmed version of the procedure of FAR 36 
(ref. 20). Note that this March 1978 version omits the 
cutoff at F = 3 of the 1 969 version . This subroutine is 
called by each individual noise source subroutine and 
by NOIS or RADIUS for the total noise. 
Pseudotones may be introduced into the spectrum 
when ground reflections (IGND = 2) are included; no 
provision is made for eliminating these as 
contributors to the tone correction. 

Function Subroutine EPNL 

Function subroutine EPNL integrates the time 
history of PNLT for effective perceived noise level, 
as defined by FAR 36 (ref. 20). It assumes that PNLT 
varies linearly between calculated points (fig. 16). 
The procedure integrates by Simpson’s rule over 
observer times TAU (resulting from the user’s choice 
of time increment (TD) in &GEOM), rather than 
summing ‘/i -second contributions. It should be noted 
that TD must be chosen small enough to adequately 
describe the noise time history near the peak. The 
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(a) Case 1: Interpolation for inte- 
gration limits TS and TF. 


PNLT 



•(b) Case 2: Extrapolation for TS 
and TF. 



(c) Case 3: Levels increase at end 
of time interval. Gives warning. 



(d) Case 4: Maximum level occurs 
at start, inadequate time history. 

Gives warning and doubles integral. 

Figure 16. - Time history integrations 
for EPNL (effective perceived noise 
levels). 

integration is made between the interpolated times 
TS and TF, between which the level is 10 decibels or 
less below the maximum (fig. 16(a)). When the first 
or last point is less than 10 decibels below the 
maximum PNLT, a straight-line extrapolation is 
made to the 10-decibels-down point for purposes of 
integration (fig. 16(b)). Occasionally the time history 
levels show an upturn at the start or end of the time 
interval, so that the extrapolated starting or final 
time (TS or TF) would be erroneous (fig. 16(c)); in 
this case the extrapolated time is ignored and a 
warning is issued. If the user has chosen an 
insufficient time span, so that either the first or last 
calculated point results in the maximum PNLT, the 
program gives a warning message and makes an 
approximation by doubling the area of the integrated 
history (fig. 16(d)). This function subroutine is called 
by FOOTPR when either IOUT(2) or IOUT(3) 
equals 3. 


Subroutine TERP 

Subroutine TERP is a general linear interpolation 
routine devised for this program. It extrapolates 
linearly outside its range; it can handle interpolation 
for F as a function of three independent variables 
(F = f(A,B,C)), where A is an array of abscissa values 
common to each of the curves in B and C and B is a 
set of curves for each value of C, with the same 
number of B curves for each C (fig. 17). Values of A, 
B, and C must each be in ascending order. This 
procedure first calls SERCH to find the coordinates 
of the nearest lower values of A, B, and C. 

Subroutine SERCH 

Subroutine SERCH finds the interval in which an 
independent variable falls within a given set of values 
and calculates the position within that interval for 
interpolation purposes. It is called repeatedly for the 
independent variables used in TERP. The search 
procedure assumes that the independent variable 
array is in ascending order. 


Outline of Programs 

The main programs and their subroutines are 
outlined in this section. General flow diagrams for 
main programs FOOTPR and RADIUS are given in 
figure 1. A checklist of input requirements and a 
complete list and description of the input variables 
are given in tables II and III. 



NB KC+ 1 values of B 



NB kc values of B 


“ F,A KA+1, b kbf c kc> 


Figure 17. - Scheme for linear interpolation routines TERP 
and SERCH to find F (A x , B x , C x ), where F - F (A, B, C). 
Symbols correspond to variables in program listing. 
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Main Program FOOTPR 

Trajectories: up to 50 points each allowed for aircraft 
path and status description; coordinates XA, 
YA, ZA; engine attack angles ALF1; bank 
angles GAM; velocities VA; flap angles PSY 
(for powered lift) and FLAPA (for airframe 
noise); engine performance (thrust or speed) 
levels EPP; and ILGR and IREVR for landing 
gear down or reverser deployed. When 
1CPA = 1, the first trajectory point 
(XA(1),YA(1),ZA(1)) must occur prior to the 
closest point of approach to any observer 
points (XO,YO,ZO). 

Observers: up to 20 points each for observer ground 
coordinates XO and YO; one value of observer 
altitude ZO. 

Noise sources: fan (inlet and exhaust), jet, core 
(combustion), turbine, flap (under or over the 
wing), airframe (wing, tail, flaps, landing gear, 
and leading-edge slats). Simple suppression 
spectra may be applied to each engine source 
level. 

Frequency bands: one-tenth decade (approx one- 
third octave), 50 to 10 000 hertz for all 
calculations. 

Propagation effects: atmospheric attenuation (by 
ARP 866 or Bass and Shields), extra ground 
attenuation (in simplified symmetric form used 
in Boeing program), ground reflection ( + 3 dB 
or Putnam prediction), simple shielding (of 
fan, jet, core, and turbine). These propagation 
effects are applied only to total noise values, 
not to individual sources. 

Time history: specified by NT and TD for the 
number of time increments desired and the time 
interval between them, starting with TSTART. 
These points are interpolated along a flight 
path defined by XA, YA, and ZA. WHEN 
ICPA = 1 the middle point occurs at the closest 
point of approach of the aircraft to the 
observer. When ICPA = 0 the first point 
coincides with the first trajectory point. 

Outputs available: controlled by IOUT for individual 
and total spectra and/or OASPL, PNL, and 
PNLT at each point in time; PNL-max, PNLT- 
max, or EPNL at each observer point; and 
coordinates of chosen contours. The output is 
preceded by a “COMENT” of the user’s 
choice, and (optionally) by a summary of the 
observer grid and aircraft trajectory inputs. 


Subroutines to FOOTPR 

NOIS: called by FOOTPR; interpolates on engine 
performance level for noise parameters; calls 
noise source programs; applies atmospheric 
absorption, extra ground attenuation, ground 
reflection, and shielding corrections to totals. 

FAN: called by NOIS; calculates inlet and exhaust 
fan noise levels, as spectra, OASPL, PNL, and 
PNLT; all are free-field values at the specified 
distance R with no atmospheric attenuation. 

JET : called by NOIS; calculates jet noise levels (omit 
if calling FLAP). 

CORE: called by NOIS; calculates low-frequency 
combustion noise levels. 

TURB: called by NOIS; calculates turbine noise 
levels. 

FLAP: called by NOIS; calculates OTW or UTW 
powered-lift noise levels (includes noise from 
jet). 

AIRFR: called by NOIS; calculates airframe noise 
(by Fink and ANOP-Langley). 

Function PERNOY: called by NOIS and source 
subroutines; for perceived noise. 

Function TONE: called by NOIS and source 
subroutines; for tone correction. 

Function EPNL: called by FOOTPR; for EPNL 
from time history of PNLT. 

Function AIRATT : called by NOIS; for atmospheric 
absorption correction (by ARP 866). 

BASAT and ATMB: called by NOIS; for 
atmospheric attenuation by Bass and Shields 
and by Montegani. 

EGAC: called by NOIS; for extra ground attenuation 
correction as function of elevation angle 
(Boeing). 

GNDRFL: called by NOIS; for ground reflection as 
white noise or tone (by Putnam). 

SHLD: called by NOIS; for approximate shielding of 
total of fan, jet, core, and turbine noise. 

TERP: called by most subroutines; a linear 
interpolation routine. 
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SERCH: called by TERP; routine to find nearest 
points in interpolation. 

Main Program RADIUS 

Up to 20 values of THETA and 10 of PHI to specify 
microphone or observer locations at constant 
radius R. 

Aerodynamic parameters that vary with engine speed 
are interpolated from an array of values as a 
function of engine performance setting EPP. 

For each source, the output consists of arrays of free- 
field, one-third-octave SPL values as a function 
of frequency and angle in the usual format, 
with OASPL, PNL, and PNLT given for each 
angle. Each page is titled by a “COMENT” of 
the users choice and the variables input to each 
source prediction. The final output is the SPL 
array for the total of the sources, modified for 
atmospheric attenuation, extra ground 
attenuation, and ground reflection as specified 
by the user. (This final output may be rejected 
by setting ITOT = 0 in the &SOURCE input). 

Programs for subroutines to RADIUS: FAN, JET, 
CORE, TURB, FLAP, AIRFR, GNDRFL, 
SHLD, function PERNOY, function TONE, 
function AIR ATT, BASAT and ATMB, 
EG AC, TERP, and SERCH. Note that 
subroutines NOIS and EPNL are not used. 

Inputs to Main Programs and 
Subroutines 

All data read in for program variables is in 
namelisted form, except for the first title line, so that 
order within each set is arbitrary and omissions can 
be made. Each main and subroutine program for 
noise sources (and for shielding and ground 
reflection) has one or more namelist block under 
which input variable values for that program can be 
read. A checklist of these input data blocks is given in 
table II. In table III each main program and 
subroutine requiring inputs is listed, including the 
names of the input dataset blocks, and followed by 
all the variables that can be entered in each block. 
The maximum number of values that can be entered 
for each variable is given as its “dimension”; each 
variable is briefly defined and the prescribed SI and 
U.S. customary units are listed. Many variables are 
preassigned default values for the convenience of the 
user; no input is necessary if the default value is 
acceptable. These default values correspond to 


typical values in U.S. customary units. If the user has 
specified input in SI units (UNITS = 2HSI), the 
default values may be in error or inappropriate. For 
some inputs the condition or subroutine for which 
the input variable is required is also given. 

Example One 

To illustrate the format of the inputs, several 
examples are shown in table IV. The order of inputs 
within any block is immaterial, but the blocks must 
occur in the order in which they are read, as shown. 
The first case is for calculation of the noise exposure 
at six observer stations on the ground (defaults are 
NYO = 2, YO = 500 and 1000). The aircraft flies an 
approach path defined by three points in XA, YA, 
and ZA. Angle of attack, velocity, engine operating 
level, and flap settings are defined at each point. 
Note that the engine and flap settings change at the 
moment of touchdown. The aircraft comes to a stop 
at XA =1500 feet. The user wishes the calculations to 
span 1 1 seconds, at 1 -second intervals, and asks for a 
geometry printout (IGEOM = l) at each point. The 
ambient conditions are nonstandard as shown. The 
aircraft has four engines and is assumed to generate 
fan, core, turbine, and flap noise. For this particular 
calculation, no Doppler frequency shift or source 
motion amplification is requested (by default). The 
user wishes to make corrections to the totals of the 
source noises by a constant 3-decibel addition for 
ground reflection and for atmospheric attenuation by 
the method of ARP 866. The printout option IOUT 
is triggered to print out each source and the total 
spectra at each point, followed by the maximum 
PNL at each observer point. 

The needed engine-related parameters are supplied 
at seven engine operating conditions. Note that 
values of fan exhaust temperature (ATF) are 
included in this engine map although required only 
for jet noise calculations, which are omitted here; the 
extra variable that will be read in will do no harm 
here. Because the user has set ICORR = 1, this engine 
map will be treated as values for a standard operating 
day (288.17 K or 518.7° R and 101.29 kN/m2 or 
2116 lb/ft 2 pressure) and will be corrected to the non- 
standard-day conditions by the usual pressure and 
temperature factors. Correction of the core 
temperatures after combustion is not 
straightforward, and the user has chosen to correct 
these (T4 and TC) by the ambient air temperature 
ratio to the 1.022 power. 

With the default values the user accepts in the fan 
data input, the fan is single stage with no inlet guide 
vanes. Flight conditions are such that there is 
negligible inlet flow distortion to the fan. Although 
the user might have chosen for the over-the-wing 
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aircraft to reject the noise from the fan exhaust duct 
by setting IEXH = 0, he accepts the default of 
IEXH = 2 and includes the fan exhaust contribution. 
Since fan pressure ratio (AFPR) rather than fan 
temperature rise (ADELT) was supplied in the engine 
map, a value of FANEFF is necessary in the fan data 
for calculating DELT. 

Note that data are supplied for calculating jet 
noise, although they are not used in this particular 
calculation. The program ignores this line of data in 
reading inputs. 

The core noise prediction input calls for the 
modified level prediction of reference 10. Hence, a 
value of DTEMD, the design temperature drop 
across the complete turbine, must be included. The 
turbine noise input includes the stator-chord-to- 
stator-rotor axial spacing of 700 percent. The turbine 
rpm is derived from the fan RPM and the gear ratio 
(GEAR) of 2.302. The indicator ITYPTB = 1 informs 
the program that a 10-decibel decrease in turbine 
noise level is called for since the core exhaust from 
the turbine is upstream of the fan nozzle (see the 
section Subroutine TURB). 

Data are supplied for making a shielding 
correction, although no correction has been called 
for. The program ignores this line of input. The 
shielding input calls for an over-the-wing case, with 
a maximum fuselage shielding of 3 decibels in 
the direction of the wingtip, a shadow zone 
approximately 60° wide, and a maximum of 
5 decibels wing shielding at 80° from the inlet in the 
plane below the aircraft. The default values for 
fuselage and wing dimensions affecting shielding are 
both 10 feet so that wavelengths greater than 10 feet 
would be shielded less. 

The flap noise prediction calls for an over-the-wing 
case with a mixed nozzle exhaust flow from a bypass 
ratio of 6:1. Forward-velocity effects on the levels at 
the source are to be included. 

The printout for this example is shown in table V 
and is discussed later. Other printout options are 
available by choice of IOUT; these are illustrated in 
succeeding examples and in table XI. 

Example Two 

The inputs for this example are abbreviated, 
assuming that the calculations for this example 
follow the calculations of Example One without 
unloading the program. Hence, any parameters 
omitted in this example will remain the same as in 
Example One. Six observer stations are defined 
alongside the takeoff path of the aircraft. The 
aircraft ground roll commences at XA = 0, with 
liftoff at XA = 1500 feet at a velocity of 148.6 feet per 
second. Engine power and flap settings remain 


constant throughout the takeoff. The number of time 
increments is increased to 21. Geometric information 
is requested at each point, but only overall levels 
(rather than spectra) are desired for each source. 
Following this history, the maximum PNLT at each 
observer point will be given. Note that each namelist 
input block must be supplied, but no input variables 
are given where no change is made from Example 
One. Program output from this example is shown in 
table VI and is discussed later. 

Example Three 

The landing and takeoff calculations of Examples 
One and Two are combined here for one observer 
point at XO= -2000 feet and YO = 500 feet. The 
inputs again assume that the program has not been 
unloaded since the calculations of Example One. The 
aircraft is assumed to go from landing settings and 
velocity to full takeoff power at touchdown, 
accelerating to the takeoff velocity at XA = 1500 feet. 
Figure 18 is a graph of the aircraft geometry and 
power settings. By choice of IOUT the output will 
give only the total corrected noise at each calculation 
point. This example is included to illustrate a caution 
to the user. Note that the number of time intervals 
has been increased to 41 ; the need for this longer time 
history is discussed later. Program output is shown in 
table VII. 

Example Four 

In this example engine noise levels are predicted 
for comparison with acoustic test stand 
measurements using the program RADIUS. The 
program-supplied default values for observer 
positions happen to correspond to all the microphone 
locations for the test data, so that &GEOMT requires 
no input. The experimental data were corrected to 
“lossless” (no atmospheric attenuation) values, so 
that &AMB requires no input. No powered-lift flaps 
were used in this series of tests, so a jet noise 
prediction is called for (I JET = 1) rather than flap 
noise as in Example One. By using the default value 
for IATM, no atmospheric attenuation is applied. 
The engine characteristics for &PARAM are the 
same as those for Example One. 

Program RADIUS requires &OPER input for each 
engine condition desired. Note that the first &OPER 
input is read before the source input data are read. 
The second operating condition (and any subsequent 
conditions) is read after the source inputs. Values of 
VI and PSYI are read in but are not used. 

The fan source input (&FANDA) is the same as for 
Example One, except that, because inlet flow 
distortion occurs in these ground tests, IFD = 1. Fan 
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inlet and exhaust suppression spectra are supplied 
here, but are not used, since ISUPPR = 0. The input 
of ISUPPR here is unnecessary since the &SOURCE 
input accepts the default value of ISUPP = 0. 

The jet noise input (&JETDA) calls for a coaxial 
nozzle calculation (INOZ = 1), with values supplied 
for the core gas parameters GAMMAC and GASRC. 
If values of the fuel flow rate (AFUEL) had been 
supplied in &PARAM, GAMMAC and GASRC 
could have been omitted here and would have been 
calculated in the jet noise subroutine. 

The inputs for core, turbine, and flap noise 
subroutines are the same as those in Example One, 
although the flap noise inputs (&FLAPDA) are 
ignored in this example. 

Example Five 

In this example the aircraft noise is calculated for a 
single observer during an aircraft approach to the 
landing point. The aircraft is at 394 feet altitude as 
it flies over the observer at 7518 feet before 
touchdown. The aircraft angle of attack (ALF1) 
is 8.83' above its flight path, or 5.83° above 
horizontal, since the flight path represents a 3' glide 
slope. Slotted flaps and landing gear are deployed 


throughout the approach, and engine power and 
aircraft velocity are constant. Noise levels will be 
calculated 21 times (default value) at 0.5-second 
intervals. The input value for UNITS could have 
been omitted here but is included for illustration. The 
value is alphanumeric and is read in the Hollerith 
convention (as 3HENG or 2HSI). 

The aircraft has three engines generating fan, jet, 
core, and turbine noise. Airframe noise is also 
expected to be a contributor. Doppler frequency shift 
and source motion amplification will be applied as 
well as a simple ground reflection correction of 
3 decibels. Atmospheric attenuation will be 
calculated by the methods of references 14 and 15. 
Suppression will be applied when suppression spectra 
are given (fan inlet and exhaust and turbine). Source 
spectra will be printed at each time, and EPNL will 
be calculated for the single observer point. 

Engine characteristics are given at approach and 
takeoff power settings. In this case no interpolation 
is required. Note that no values are given for the fan 
stream exhaust velocity or temperature. The exhaust 
nozzle is assumed to fully mix fan and core streams, 
and AVC and ATC represent the mixed values. This 
requires that separate values be supplied for the 
turbine exhaust temperatures (ATCTUR) for the 
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prediction of turbine noise. Values of AFUEL are 
given, although they are not used since AT4 values 
are included and GAMMAC and GASRC are given 
later. 

The jet noise input accepts the default value of 
INOZ = 0 for a simple nozzle. This is chosen to be 
compatible with the mixed values used for AVC and 
ATC. GAMMAC and GASRC are also mixed -flow 
values. The total mixed flow exhaust area is given for 
AC. 

The aircraft has a total wing area of 4007.6 square 
feet and a wing span of 200.19 feet. The total 
horizontal tail area is 927.82 square feet with a total 
span of 68.11 feet; the vertical tail area is 577 square 
feet with a height (span) of 29.45 feet. There are two 
slotted flaps (default NF = 2) with a total area of 
880.5 square feet and total span of 108.4 feet 
(fig. 14). There is a single nose landing gear with two 
wheels 2.925 feet in diameter. The two main landing 
gear each have four wheels 4.17 feet in diameter. The 
ratios of strut length to wheel diameter are 3.93 for 
the nose gear and 3.46 for the main gear (i.e., the 
nose strut is 11.5 ft long and the main gear struts are 
14.4 ft long). The calculation is for an 
aerodynamically clean aircraft; so ICLEAN = 0. 
Setting IWING = 1 causes the wing and the 
horizontal and vertical tail trailing-edge noise to be 
included, and IFL = 1 adds the slotted-flap noise for 
flaps at the angles specified during the flight in 
&TRAJ. There are no leading-edge slats. 

Example Six 

This example shows the additional inputs required 
for a footprint contour calculation for the aircraft 
landing of Example One. A single contour of 
90 EPNL is called for, in the form of Y coordinates 
at 1 1 values of XO. The extremes of these XO values 
were selected from preliminary calculations of EPNL 
at various points under the flight path (at YO = 0) to 
find the approximate terminations of the footprint 
contour. To give an adequate time history for each 
EPNL calculation, NT was set at 21. 

When the aircraft has decelerated to a stop at 
XA = 1500 feet, the calculated EPNL will go to 
infinity unless the engine operating level is reduced to 
such a point that the PNLT is more than 10 decibels 
below the maximum. To enable extrapolation to such 
low settings, engine performance is defined 
artificially at EPP = 0. At the XA= 1500 foot point, 
the operating level is set to a somewhat arbitrary low 
level of 3 percent. 


Samples of Output 

The complete calculated outputs from input 


Examples One through Six are given in tables V 
through X, respectively. Brief portions of the output 
derived from these same examples modified as to 
requested output (IOUT) are given in table XI. 
Detailed discussion of these output examples follows. 

Example One 

This output (table V) has the one-line title chosen 
by the user. A summary of the observer coordinates 
and of the aircraft trajectory points and flight 
conditions then follows. This summary of inputs can 
be turned on or off by choice of ITITLE (default 
ITITLE = 1). The next three lines are the titling and 
values for the first point in response to IGEOM = 1 . 
Subsequent points only include numerical values as 
on the third line. The values given represent the 
interval number (KI), the aircraft position (XI, YI, 
ZI), the aircraft-observer geometry (R, THETA, 
THETAF, PHI), the time at the aircraft and 
corresponding arrival time at the observer (TI and 
TAU), the engine power setting (EPPI), and the 
aircraft velocity (VI). Although this line of 
information is redundant or peripheral to the noise 
calculations, these values can be of help in tracing the 
flight history, especially with a complicated geometry 
or in troubleshooting. The following line prepares 
the reader for the individual spectra at the 
frequencies listed on the next two lines. 

At each time interval a summary of the observer 
location, observer time (TAU), and aircraft location 
in terms of radius (R) and angle (THETA) is given in 
a single line. Each source spectrum then follows in a 
two-line format corresponding to the previously 
listed frequencies. Values of OASPL, PNL, and 
PNLT for each individual source are also given. 
Remember that each individual spectrum is 
unmodified for any propagation losses specified. The 
total noise spectrum (on the last two lines following 
the source spectra) represents the sum of the 
individual sources, with all the appropriate 
corrections included — in this case, atmospheric 
attenuation and simple ground reflection. If 
shielding had been called for, the total spectrum 
would include the effects of shielding the fan, core, 
and turbine sources. 

Succeeding time interval outputs include the new 
geometric output line for IGEOM = 1 , the line for the 
general location description at the new time, and 
lines for the individual and total spectra. For the first 
observer point the aircraft proceeds from an initial 
point at TAU = 21.6 seconds, where R = 817.0 feet 
and THETA = 46.7°, to the closest point of approach 
at 26.4 seconds, where R = 564.1 feet and 
THETA = 92.8°, and ends at 31.6 seconds with 
R = 817.0 feet and THETA = 138.8°. A longer 
history and a greater range in THETA could be 
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obtained by increasing either the number (NT) or size 
(TD) of the time intervals. Similar time histories are 
generated for each position of the observer. 

It is apparent for the first observer point and first 
time interval that fan noise is the primary contributor 
to the total PNLT, although flap noise is predom- 
inant at the low frequencies and is the stronger 
contributor to OASPL. The total OASPL is 3.6 deci- 
bels above the flap noise OASPL, 3 decibels of which 
is due to the ground reflection. Total PNLT is only 
0.8 decibel above that from the fan alone, although 
3 decibels are also added here by the ground 
reflection. Although the unattenuated high- 
frequency harmonics from the fan are strong, 
atmospheric attenuation causes the total spectrum to 
fall off rapidly as the frequency approaches 
10 kilohertz. The user is cautioned that simply 
comparing individual source PNLT may lead to 
incorrect conclusions in determining the controlling 
source at large distances, since the individual source 
levels include no atmospheric attenuation. Low- 
frequency sources, such as flap noise in this case, will 
assume increasing importance as distance and 
atmospheric attenuation increase. 

The combined effects of source directivity and 
changing distance can be observed for each source as 
the aircraft flies past the observer points. In this 
particular example, changes in R with time produce 
changes in source levels of 3.2 decibels at the most, so 
that the prevailing influence on the source histories is 
their own directivity. 

After the output of the spectra at each time and 
observer location, the program prints the maximum 
level of PNL for the total noise source at each 
XO,YO location of the observer points. Maximum 
PNLT or EPNL would have been given if the input 
specified other values for IOUT(2). Identification of 
the maxima is helped by also printing out the angles 
(THETA) and times (TAU) when the maxima 
occurred for each observer point. For the first two 
observer points at a sideline distance (YO) of 
1000 feet, these maxima occur near the end of the 
time history, indicating that a longer time history is 
desirable. For the first two 500-foot sideline locations 
also, the last point is only 3 to 4 decibels below the 
maximum PNL. For calculation of a valid EPNL at 
these locations a longer history would be 
recommended. 

The noise histories at the last two observer 
locations (XO = 0 and YO = 500 and 1000) show the 
effect of the engine power cutback at touchdown. 
The fan and flap noise levels drop dramatically, but 
the turbine noise drops only slightly. Regarding the 
turbine noise, it is interesting that there are no tones 
in the spectra and no tone corrections (PNL = PNLT) 
before cutback; but, when the turbine speed drops, 
tones appear in the spectra at 3162 and 6309 hertz 


that are sufficient to give a tone correction of about 
3.5 decibels. 

Example Two 

The output from Example Two is shown in table 
VI. It is for an aircraft takeoff after a 1500-foot 
accelerating roll on the runway. The initial portion of 
this output is in the same form as the output from 
Example One, except for the summary. The engine 
power is constant before and after liftoff, and the 
aircraft velocity increases at constant acceleration 
until the specified VA of 148.6 feet per second at 
liftoff. This acceleration can be seen in the VI values 
listed in the geometry information. 

Since IOUT(l) = 2 for this case, overall levels are 
given for the individual sources instead of spectra. 
Titles above the source noise levels are modified from 
those of the previous case. Here the observer 
coordinates and time (XO, YO, and TAU) are 
identified along with the noise level quantities. The 
reader is reminded that the individual levels do not 
include ground reflections or atmospheric 
attenuation. Hence the levels for fan noise alone can 
exceed the total levels, as in the first three time 
increments shown. 

Because of the angle of climb and angle of attack 
of the aircraft, when the aircraft has passed the 
observer, the observer is able to “see” the upper 
surface of the wing and flaps (THETAF> 180°). 
Although the first part of each time history is 
dominated by fan noise, the last few points are 
dominated by the flap noise, which increases 
dramatically in directions above the wing for an over- 
the-wing configuration. 

Specification of IOUT(2) = 2 causes the summary 
information with the values of maximum PNLT to 
be given at the end. By comparing these maxima with 
the individual source histories, it can be seen that 
for this case the flap noise component is the primary 
noise contributor at all the maxima except 
at XO = 3500,YO = 500, where the fan noise 
dominates. 

Even though NT was increased from 1 1 for 
Example One to 21 for this example, at some 
observer points the last level given in the history is 
only a few decibels below the maximum. Calculation 
of EPNL from the time histories in these cases might 
be quite inaccurate because of the long extrapolation 
involved in approximating the 10-decibel-down 
point. 

Example Three 

The output for Example Three (table VII) is for a 
combined landing and takeoff similar to Examples 
One and Two. The flight history is described in detail 
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in the discussion of the sample inputs. This example 
is included to illustrate the care that must be 
exercised when a large power-level change occurs at 
some point in the aircraft flight. By referring to 
figure 18, it is evident that the increase in power 
setting does not occur until 42.7 seconds into the 
flight (landing and takeoff). The resultant increase in 
noise level will be sensed later at the observer point, 
depending on the distance from the aircraft when the 
change occurs. The printout shows that by the 38th 
point in the time history the power level has changed 
and that the specified observer will hear it almost 
2 seconds later. The total noise PNLT jumps by over 
17 decibels and exceeds the previous maximum 
PNLT by 3.5 decibels. If the number of specified 
time increments (NT) had been 33 or less, the time 
history for this observer would have omitted this 
loudest portion, and the calculated maximum and 
time weighting factor (if used for EPNL) would have 
been in serious error. 

This example also illustrates the output when 
IOUT(l) = 3. Only the noise totals, modified by 
specified propagation effects, are listed at each time 
increment. 

Example Four 

The output in table VIII shows the use of 
RADIUS, in place of FOOTPR and NOIS, to 
calculate predicted noise levels at a constant radius 
from the source at angles chosen by the user. As can 
be seen from the format, this output is similar to 
typical printouts for the acoustic measurements from 
static ground tests. A page is devoted to each source 
component, given as free-field unattenuated values, 
followed by a page for the total of the sources, 
including any propagation corrections. This sequence 
of pages is repeated for each engine operating 
condition (EPPI) requested. 

For sources that are not axisymmetric (powered- 
lift flap noise and airframe noise), these source levels 
will be calculated and printed out on separate pages 
for each azimuthal angle (PHI) requested. 

Each page begins with four heading lines for the 
title, engine operating condition, source identity, and 
number of engines, radius, and azimuthal angle. 
When ITITLE = 1, several lines then give the 
important parameters used in the prediction. These 
values have been either entered by the user (in 
&PARAM or individual source input) or are default 
or calculated values. For example, in the fan noise 
input, values of fan pressure ratio (AFPR) rather 
than temperature rise (ADELT) were supplied in 
&PARAM. From the interpolated value of 
FPR = 1 .054 (at EPPI = 37.78) and the fan efficiency 
(FANEFF = 0.84), a temperature rise DELT of 
9.4° R is calculated in the fan noise subroutine and is 


shown in the list of input parameters. It is well for the 
user to check these input values to insure that no 
unintended omissions or defaults are entered in the 
calculation. 

In addition to the spectrum at each THETA, the 
OASPL, PNL, and PNLT for each spectrum are 
calculated and printed near the bottom of each page. 
The OASPL values represent only the summation of 
the SPL values for the frequencies given (50 Hz to 
10 kHz). Hence, in cases where the spectral energy 
maximizes near the high or low end of the frequency 
spectrum, there may be an appreciable difference 
between these listed OASPL values and the overall 
levels calculated within each source subroutine prior 
to generating a spectrum. 

The power spectrum is calculated by assuming an 
axisymmetrical source and is shown in the last 
column of printout. The total acoustic power appears 
in the same column at the end of the OASPL line. 
The total acoustic power predicted from the fan at 
EPPI = 37.78 in this example is 132.9 decibels (ref. 
0.1 pW). 

Example Five 

The output in table IX illustrates the use of 
FOOTPR with airframe noise included as a source. 
There is only one observer point; it is located under 
the path of the aircraft as it makes an approach. A 
total of 10 seconds of time history is used for 
calculating the EPNL. For this example, airframe 
noise is shown to be a minor contributor compared 
with the suppressed fan noise for most of the history. 
The total noise levels in PNLT go from 91.5 decibels 
to a maximum of 103.9 decibels and back down to 
80.1 decibels, giving adequate range for a good 
EPNL calculation. The summary shows an EPNL of 
97.6 decibels at the observer, with the maximum 
levels occurring at TAU = 0.96 second (rounded to 
3.0 sec in the history) and THETA = 115°. 

Example Six 

In table X the results of the contour calculation 
using the Example Six inputs are shown. For 
illustration of the convergence to the Y coordinate of 
the contour, IOUT(l) was set to 3 for those portions 
of the calculations when XO was -7000 and 
1000 feet. Notice that at -7000 feet, two iterations 
were required to obtain a calculated EPNL of 
90 decibels (±0.1 dB) at a Y coordinate of about 
366 feet. At XO = 1000, only one iteration was 
required to arrive at the contour coordinate of about 
447 feet. 

The normal output for IOUT = 0,3,3 is shown 
beginning with the repeat of the title line. The EPNL 
values at the two (by default) sideline distances are 
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then given at each XO position. Also included are the 
angles (THETA) and observer times (TAU) when the 
maximum PNLT occurred. 

The 90-EPNL-contour coordinates are then listed 
and the approximate area in square feet, acres, and 
square miles. Because of the reduced power when the 
aircraft touches down and the near shutdown of the 
engines at XA=1500 feet, the footprint closes just 
shortly beyond the end of the aircraft roll. The first 
and last XO points (at -7500 and 1600 ft) for this 
contour calculation were selected after trial 
calculations for the EPNL at YO=0 and 
XO= -8000, -7500, 1550, 1600, and 1700 feet. If 
coordinates had been requested at XO values less 
than about -7500 feet or greater than about 
1600 feet, the program would not have been able to 
obtain a successful convergence. 

Illustrations of Printout Options 

Some of the output choices available to the user 
are shown in table XI; the basic inputs from 
Examples One and Six are used and the IOUT output 
controls are varied. Table III specifies the input 
values of IOUT, IGEOM, and ITOT to exercise 
various output options. For the examples discussed 
in this section, IGEOM = 0 and ITOT = 1 . 

The output resulting from IOUT(l) = l is also 
demonstrated in the Output from Example One 
(table V). Detailed spectra are given from each source 
and for the total at each time increment. The 
program equates JOUT in each noise source 
subroutine with IOUT(l). Various selections of 
source outputs can be made by using IOUT(l) and 
ITOT and giving JOUT inputs to each source. For 
example, by setting IOUT(1) = 0 and then inputting 
JOUT = 1 in a particular source input, the spectrum 
of only that source will be given at each time 
increment. By setting IOUT(l)= 1, but JOUT = 0 for 
all individual noise source inputs, only the spectra for 
the total noise will be given. 

The effects of setting IGEOM = 0 (or omitting 
IGEOM) and ITITLE = 0 are shown by comparing 
table XI to table V; the lines of geometric 
information are omitted, and there is no initial 
printout of the observer and trajectory coordinates. 
When IOUT(l) = 2, only the summary information 
of OASPL, PNL, and PNLT is shown for each 
source and the total at each time increment. Notice 
that these values are the same as those in the more 
detailed printout in table V. This level of output is 
useful when there are no problems concerning the 
spectra or when the user has already satisfied himself 
concerning the spectra in previous calculations. 

When IOUT(l) = 3, the next sample in table XI 
shows just the OASPL, PNL, and PNLT histories 


for the total of the noise sources, modified for the 
propagation losses specified. This total history may 
be adequate when an EPNL calculation is being 
made and the user wishes to check the time history 
being integrated into EPNL. 

When IOUT(1) = 0, all time history information is 
omitted in the printout, and only the maximum levels 
are given for each observer, along with the angle and 
time when each maximum occurred. 

Corresponding outputs when IOUT (2) equals 1, 2, 
or 3 are shown next in table XI. The values of PNL- 
max and PNLT-max are the maxima of those shown 
in table V. The angles THETA and the times indicate 
where the maxima occurred. When IOUT(2) = 0, 
these printouts of maxima or EPNL are omitted. 

To calculate PNL, PNLT, or EPNL contours, set 
IOUT(3) equal to 1,2, or 3, respectively. The results 
are shown for the inputs of Example Six. The first 
two values of YO are taken as the default values of 
500 and 1000. To define contours for these examples, 
NXO is increased to 11, and XO values are added 
between -7500 and 1600 feet. The number of time 
increments (NT) is increased to 21 to improve the 
EPNL calculation. The contour area is that 
integrated between the first and last value of XO. 
Large errors in area can occur if the program fails to 
converge to a Y coordinate at some XO, or if it 
somehow converges to a negative value of Y. Where 
the user can anticipate that at some XO points the 
requested contour level will be very near the X axis, 
the solution for the Y coordinate will be expedited by 
setting one of the initial YO values to zero. 

On the IBM 360 computer the solution for the Y 
coordinates for a contour level of 90 EPNdB at four 
XO distances required approximately 100 seconds of 
CPU time. The calculations are for four independent 
noise sources, with a 3-decibel ground reflection and 
atmospheric attenuation applied to the total, 
evaluated 21 times along the aircraft trajectory. 


Program Listings 

A complete listing of the main programs FOOTPR 
and RADIUS and all subroutines used by them are 
shown in appendix B. Punched cards or tapes for 
these listings can be obtained by suitable request 
from COSMIC, 112 Barrow Hall, University of 
Georgia, Athens, Georgia, 30602 (telephone 
404-542-3265). 


Concluding Remarks 

Programs have been demonstrated that enable the 
user to make single- and multiple-point and contour 
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noise calculations by using the procedures 
recommended in the ANOP noise source 
documentation. Various common corrections can be 
made to account for propagation and shielding 
effects. 

Each of the main programs and subroutines have 
been discussed to aid the user in relating the program 
features to the noise source predictions and to his 
particular problem. Sample inputs and outputs have 
been described at length, with tables for illustration. 
Generally, the programs are simple enough that the 
user should be able to make any modifications that 
might better suit his application. 

There are several present limitations to this 
program. Some of these are listed here. However, the 
program will be found useful in a wide variety of 
noise prediction situations. 

(1) No provision is made for a layered atmosphere 
in the calculation of atmospheric attenuation. This 
would require an additional subroutine to break the 
propagation path into several segments having 
distinct properties and then to apply the existing 
attenuation predictions to each segment. 

(2) Suppression spectra can be applied to 
individual sources, but only as a function of 
frequency. Source directivity is also modified by 
suppression treatment, but no provision is made for 
this in the present version. Additional subroutines to 


predict the suppression of each source, based on the 
physical characteristics of the suppressor, would also 
be highly desirable. 

(3) No provision is made for the calculation of jet 
noise with a multiple-tube or chute type of 
suppressor. 

(4) Provision has not yet been made for predicting 
the noise for inverted velocity profiles of coaxial jet 
nozzles. 

(5) Eventually, it may be desirable to predict the 
propagation of each source individually to the far 
field. Shielding and ground reflection effects, and 
perhaps others, depend to some degree on the 
characteristics of the source. In addition, there are 
possible interference effects between similar noise 
sources on separate engines. The specific locations of 
the engines on the aircraft, as well as the wing and 
fuselage shielding will affect any interferences. 

(6) Some provisions for a thrust reverser noise 
prediction have already been incorporated in these 
programs, but no subroutine for this noise source has 
been provided as yet. The user may wish to develop 
and incorporate a subroutine for reverser noise. 


Lewis Research Center 

National Aeronautics and Space Administration 
Cleveland, Ohio, April 2, 1981 
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Appendix A 
Symbols 


Symbols used in the text of this report are listed 
here. Other symbols for input parameters are listed 
in table III. Where appropriate, the noise module in 
which the variable appears, or is input, is identified 
by the module name. Variable names in capital 
letters correspond to the names in the Fortran 
coding. 

A array of variables in interpolation 

routine 


A 

a 

AC 

AC1 

ADELT 

AF1 

AFPR 

AFUEL 

AIRM 

ALF 

ALF1 

ALF2 

ANNHT 

ANNHTF 

AP3 

APHI 

ARPM 

AT3 

AT4 

ATC 

ATCTUR 

ATF 

ATHETA 


array of areas, AIRFR, m2 (ft2) 
unit direction vector on aircraft (fig. 3) 
core nozzle area, JET, m2 (ft2) 
core nozzle area, FLAP, m2 (ft2) 

array of fan temperature rises, engine 
map, K (°R) 

fan nozzle area, FLAP, m 2 (ft 2 ) 
array of fan pressure ratios, engine map 
array of fuel flow rates, engine 
map, kg/s (lb/s) 

Mach number of air approaching fan 
face, FAN 

angle between engine axis and ground 
plane, ALF = ALF1 + ALF2, deg 

engine angle of attack, deg 
angle of climb of aircraft, deg 
primary nozzle annulus height JET, 
m (ft) 

fan nozzle annulus height JET, m (ft) 
array of combustor inlet pressures, 
engine map, N/m 2 (lb/ft 2 ) 
array of angles to sideline (fig. 4(b)), 
for RADIUS, deg 

array of fan speeds, engine map, rpm 
array of combustor inlet temperatures, 
engine map, K (°R) 
array of combustor exit temperatures, 
engine map, K (°R) 
array of core nozzle exit temperatures, 
engine map, K (°R) 
array of turbine exit temperatures, 
engine map, K (°R) 
array of fan nozzle exit temperatures, 
engine map, K (°R) 
array of angles from engine inlet 
(fig. 4(b)), for RADIUS, deg 


ATIPM 

array of fan blade tip relative Mach 
numbers, engine map 

ATIPM2 

array of second fan stage relative Mach 
numbers, engine map 

ATURTS 

array of turbine rotor tip speeds, 
engine map, m/s (ft/s) 

A VC 

array of core nozzle exit velocities, 
engine map, m/s (ft/s) 

AVF 

array of fan nozzle exit velocities, 
engine map, m/s (ft/s) 

AWAFAN 

array of fan total airflows, engine 
map, kg/s Qb/s) 

AWCORE 

array of core total (air + fuel) flows, 
engine map, kg/s Ob/s) 

B 

array of variables in interpolation 
routine 

B 

array of span lengths, AIRFR, m (ft) 

b 

aircraft position with respect to 
observer (fig. 4(a)), XA-XO 

BETA 

coefficient in PHI-angle dependence, 
FLAP 

BPD 

intermediate variable in defining 
aircraft position 

BPDPH 

intermediate variable in defining 
aircraft position 

BPR 

bypass ratio of engine, FLAP 

C 

array of variables in interpolation 
routine 

C 

ambient speed of sound, m/s (ft/s) 

CAY 

coefficient in forward speed effect on 
source, FLAP 

CFUSE 

characteristic dimension of fuselage 
(i.e., diam), SHLD, m (ft) 

CG 

ratio of strut length to wheel diameter, 
AIRFR 

COMENT 

array of initial title in FOOTPR or 
RADIUS 

CS 

ratio of stator chord to rotor spacing, 
TURB, percent 

CSUPP 

suppression spectrum, CORE, dB 

CWING 

characteristic dimension of wing (i.e., 
chord), SHLD, m (ft) 

CX 

speed of sound at fan face, FAN, ft/s 

d 

aircraft position with respect to 
observer (fig. 4(a)), YA-YO 
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DECMPT 

decrement to combination tone levels, 

GASRC 

gas constant of core exhaust, JET, 


FAN, dB 


j/kg/K (ft-Ib/lbm/°R) 

DELF 

fuselage shielding factor, SHLD, dB 

GEAR 

gear ratio, last stage turbine to fan, 

DELT 

fan temperature rise, FAN, °R 


TURB 

DELW 

wing shielding factor, SHLD, dB 

h 

aircraft position with respect to ob- 

DHC 

hydraulic diameter of core nozzle, 


server (fig. 4(a)), ZA-ZO 


JET, m (ft) 

HEAD 

angle between aircraft track and X 

DHF 

hydraulic diameter of fan nozzle, 

A 

axis, deg 


JET, m (ft) 

i 

unit vector along X axis 

DK 

array of source heights, GNDRFL, 
m (ft) 

IATM 

key to effect atmospheric attenuation 
corrections 

DMB 

intermediate variable in defining 
aircraft position 

ICLEAN 

key for clean aerodynamic configu- 
ration, AIRFR 

DTEMD 

design temperature drop across 
turbine, CORE, K (°R) 

ICORR 

key to correct engine parameters to 
ambient conditions 

DW 

tire diameters of nose and main gear 
wheels, AIRFR, m (ft) 

ICPA 

key to center time history or start time 
at first point 

EDOP 

exponent on FDOP for source motion 
amplification 

IDOP 

key for Doppler shifts and source 
motion corrections 

ED0P2 

same as EDOP, specific for second fan 
stage, FAN 

IEGA 

key to effect extra ground attenuation 
corrections 

EPNL 

effective perceived noise level, time 
and tone weighted, dB 

IEXH 

key for including inlet or exhaust 
noise, FAN 

EPP 

array of engine performance 
parameters in FOOTPR 

IFD 

key to indicate inlet flow distortion, 
FAN 

EPPI 

engine performance parameter, 
FOOTPR, or input to RADIUS 

IFL 

key to include slotted-flap noise, 
AIRFR 

F 

array of dependent variables in inter- 
polation routine 

IFLAP 

key to calculate powered-lift (flap) 
noise, NOIS 

FANEFF 

fan aerodynamic efficiency (< 1), FAN 

IFWD 

key to correct sources for forward 

FDOP 

Doppler factor for frequency shift and 

IGEOM 

velocity, JET and FLAP 


motion amplification 

key to obtain extra geometry informa- 

FILBW 

fraction of filter bandwidth having 


tion in printout 


gain of 1 

IGND 

key to effect ground reflection cor- 

FLAPA 

array of angles of slotted flaps, in 


rections 


FOOTPR, deg 

IGV 

key for inlet guide vanes, FAN 

FLAP I 

slotted flap angle, AIRFR, deg 

IJET 

key to include jet noise, NOIS 

FLSUPP 

suppression spectrum, FLAP, dB 

ILG 

key to include landing gear noise, 

FPR 

fan pressure ratio, FAN 


AIRFR 

FR 

FSHIFT 

gain factor of filter, FAN and TURB 
array of phase shifts of reflected 

ILGR 

array of keys for landing gear noise, in 
FOOTPR 

signal, GNDRFL, deg 

IMOD 

key to use modified prediction pro- 
cedure, CORE 

GAM 

array of banking angles of aircraft, deg 

INOZ 

key to indicate nozzle type, JET and 

GAMMA 

specific heat ratio of core flow, CORE 


FLAP 

GAMMAC 

specific heat ratio of core nozzle 
exhaust, JET 

INSENS 

key for flap angle sensitivity, FLAP 


IOUT 

key for various levels of detail in cal- 

GAMMAF 

specific heat ratio of fan nozzle 
exhaust, JET 


culated output 
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IREVR 

ISKIP 

ISLAT 

ISUPP 

ISUPPR 

ITITLE 

ITONE 

ITOT 

ITYPTB 

ITYPW 

IUOTW 

I WING 

A 

j 

JOUT 

A 

k 

KI 

MTRD 

NF 

NG 

NPHI 

NS 

NT 

NTHETA 

NW 

NXO 

NYO 

OASPL 


array of keys to calculate reverser 
noise, in FOOTPR 

key to skip unnecessary steps in NOIS 
and JET 

key to include slatted-leading-edge 
noise, AIRFR 

key to apply suppression spectra to all 
sources 

override key to ISUPP in each source 
module 

key for printing preliminary inputs to 
noise calculations 

key to treat spectrum protrusions as 
tones, GNDRFL 

key to include or reject total of source 
spectra in printout 

key for turbine nozzle exhaust posi- 
tion, TURB 

key for aircraft wing type, AIRFR 
key for engine location under or over 
wing, FLAP and SHLD 

key to include wing and tail noise, 
AIRFR 

unit vector along Y axis 
key for control of individual source 
outputs 

unit vector along Z axis 
counting parameter, number of time 
increments, FOOTPR 
design tip relative Mach number in 
ref. 1 

number of trailing-flap slots, AIRFR 
number of nose and main landing gear, 
AIRFR 

number of values of APHI supplied, 
in RADIUS 

number of sources simulating dis- 
tributed source, GNDRFL 
number of time increments for noise 
calculations, in FOOTPR 
number of values of ATFIETA sup- 
plied, in RADIUS 

number of nose and main landing gear 
wheels, AIRFR 

number of XO coordinates supplied, 
in FOOTPR 

number of YO coordinates supplied, 
in FOOTPR 

overall sound pressure level (broad- 
band), dB 


A 

P 

unit vector along aircraft trajectory 

PHI 

angle in sideline direction (fig. 4(b)), 
deg 

PNL 

perceived noise level 

PNLT 

perceived noise level, tone weighted 

PSY 

array of powered-lift flap angles, in 
FOOTPR, deg 

PSYI 

powered-lift flap angle, in RADIUS, 
deg 

QABS 

array of ground reflectivities, GNDRFL 

R 

distance from aircraft to observer, 
m (ft) 

R 

radius vector from aircraft to observer 

RPM 

fan speed, FAN, rpm 

RSS 

rotor-stator spacing, FAN, percent 

RTSM 

fan rotor blade tip Mach number, 
FAN, ft/sec 

SFUSE 

maximum fuselage shielding at 
THETA = 90°, SHLD, dB 

SMX 

angle in flyover plane of maximum 
wing shielding, SHLD, deg 

SPL 

sound pressure level, roughly one-third 
octave, dB 

SUPPEX 

suppression spectrum for fan exhaust, 
FAN, dB 

SUPPIN 

suppression spectrum for fan inlet, 
FAN, dB 

SWIDE 

angle span of fuselage shielding, 
SHLD, deg 

SWING 

maximum wing shielding, SHLD, deg 

T3 

combustor inlet temperature, CORE, 
°R 

T4 

combustor exit temperature, CORE, 
°R 

TAU 

retarded time at observer position, s 

TC 

core nozzle exit temperature, JET, °R 

TCTUR 

turbine exit temperature, TURB, °R 

TD 

size of time increment for noise cal- 
culations, s 

TF 

time at end of EPNL integration 
(fig. 15), EPNL, s 

THETA 

angle between engine inlet and observer 
direction, deg 

THETAF 

projection of THETA in plane of a and 
u (fig. 4(b)), deg 

THETAH 

projection of THETA in plane of a and 
w (fig. 4(b)), deg 

TI 

time on aircraft at noise calculation, 


FOOTPR, s 
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TIPM 

relative fan tip Mach number, FAN 

w 

unit direction vector on aircraft (fig. 3) 

TIPM2 

relative second-stage fan tip Mach 

WINGD 

ratio of wing chord to nozzle diam- 


number, FAN 


eter, FLAP 

TIPMD 

design relative fan tip Mach number, 

X 

coordinate (fig. 2) 


FAN 

XA 

array of aircraft coordinates (fig. 2), 

TIPMD2 

second-stage design relative fan tip 


m (ft) 


Mach number, FAN 

XI 

aircraft coordinate at time TI, m (ft) 

TS 

time at start of EPNL integration 

xo 

array of observer coordinates (fig. 2), 


(fig. 15), EPNL, s 


m (ft) 

TSTART 

reference time at first trajectory point, 

Y 

coordinate (fig. 2) 


FOOTPR, s 

YA 

array of aircraft coordinates (fig. 2), 

TSUPP 

suppression spectrum, TURB, dB 


m (ft) 

TURTS 

last-stage rotor relative tip speed, 

YI 

aircraft coordinate at time TI, m (ft) 


TURB, ft/s 

YO 

array of observer coordinates (fig. 2), 

u 

unit direction vector on aircraft (fig. 3) 


m (ft) 

UNITS 

variable designating SI or U.S. 

Z 

coordinate (fig. 2) 


customary units 

ZA 

array of aircraft coordinates (fig. 2), 

VA 

array of aircraft velocities, FOOTPR, 


m (ft) 


m/s (ft/s) 

ZETA 

angle between aircraft motion and ob- 

VI 

aircraft velocity, in FOOTPR, or input 


server direction, deg 


to RADIUS, m/s (ft/s) 

ZI 

aircraft coordinate at time TI, m (ft) 

VIEW 

elevation angle of aircraft from ob- 
server, FOOTPR, deg 

ZO 

array of observer coordinates (fig. 2), 
m (ft) 
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Appendix B 

Listings of Main Programs and Subroutines 


Page 


32 

FOOTPR 

38 

NOIS 

41 

RADIUS 

49 

FAN 

54 

JET 

59 

CORE 

61 

TURB 

63 

FLAP 

66 

AIRFR 

69 

AIRATT 

69 

BASAT 

70 

ATMB 

71 

EGAC 

71 

GNDRFL 

72 

SHLD 

74 

PERNOY 

74 

TONE 

75 

EPNL 

76 

TERP 

77 

SERCH 


Program 
(Main Program) 
(Subroutine) 
(Main Program) 
(Subroutine) 


(Function Subroutine) 
(Subroutine) 


(Function Subroutine) 
(Function Subroutine) 
(Function Subroutine) 
(Subroutine) 
(Subroutine) 
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Main Program FOOTPR 


0000100 c 

0000200 C 
0000300 C 
00 004 00 c 
0000500 C 
0000600 C 
0000700 C 
0000800 C 
0000900 C 

0001000 c 
0001100 c 

0001200 C 
0001300 C 
0001400 C 
0001500 
0001600 
0001700 
0001800 
0001900 
0002000 
0002100 
0002200 
0002300 
0002400 
0002500 
0002600 
0002700 
0002800 C 
0002900 C 
0003000 C 
0003100 C 
0003200 C 
0003300 C 
0003400 C 
0003500 C 
0003600 C 
0003700 C 
0003300 C 
0003900 C 
0004000 C 
0004100 C 
0004200 C 
00C4300 C 
0004400 C 
0C04500 C 
CC04600 C 
C004700 C 
C004800 C 
0004900 C 
0005000 C 
0005100 C 
0005200 C 
0005300 
0005400 
0005500 C 
0005400 C 
0005700 
0 0 0580 0 
0005900 
0006000 
0006100 
0 0 0620 0 
0006300 


MAIN PROGRAM FOR FOOTPRINT CALCULATION 
FROM AIRCRAFT NOISE SOURCE SUBROUTINES 
WRITTEN AT LERC AS PART OF ANOP SUPPORT EFFORT. 

PROGRAM CALCULATES GEOMETRY FOR FLIGHT PAST SELECTED GRID POINTS, 

OR POINTS ON SPECIFIED NOISE CONTOUR LINES. 

CALLS SUBROUTINES NOIS AND EPNL 

OUTFLOW: UNITS, I SK I P , I REV , I L G , FDOP , C , T AMB , PAMB , RH , 

R, THETA, THETAF,THETAH, PHI, VIEW, HEAD, PSYI,FLAPI,EPPI, 
VI,X,Y,TAU,IJ,KI,ZO,ZI 
RETURN FLOW: PN L , PN L T , EPN L , T I S , T I F 

INPUTS ARE THROUGH NAMELIST BLOCKS "GRID", "AMB", AND "TRAJ" 

DIMENSION XO ( 2 0 ) , YO ( 2 0 ) , XOM ( 20 ) , YCON ( 2 0 ) , YCONM ( 2 0 ) , XA ( 5 0 ) , YA ( 5 0 ) , - 

1 ZA ( 5 0 ) ,ALF(50),ALF1(50) , GAM(50) , EPP(50),VA(50),TA(50),PSY(50),- 

2 FLAPA(50),ILGR(50),IREVR(50),ALFCOS(50),ALFSIN(50),FPNL(100)> - 

3 T I M E ( 100) »C0NTR(5) 

DIMENSION FPNLMXC 20 , 20 ) , T AUMX (20,20 ), TH ETMX (20,20),COMENT(20) 
COMMON UNITS, I SKIP, IOUT( 3) ,IREV, I LG, FDOP, C,T AMB, PAMB, RH,N ENG 
COMMON/GEOM/R. THETA, THETAF.THET AH, PHI, VIEW, HEAD, PSYI,FL API, EPPI,- 
1 VI ,X,Y,TAU,IJ,KI,ZO,ZI 
DATA SI, ENG/2HSI, 3HENG/, AR/. 0174533/ 

NAMELIST/GRID/UN ITS, NXO,NYO,XO,YO,ZO,NCONTR,CONTR 
NAMELIST/TRAJ/NP,XA,YA,ZA,ALF1, GAM, EPP, VA, PSY, FLAPA, ILGR, IREVR,- 
1 TSTART , TD,NT , ICPA, IGEOM, ITITLE 
NAMELIST/ AMB/TAMB, PAMB , RH 

UNI T S = ENG/SI (FOR ENGLISH/INTERNAT. UNITS FOR INPUT * OUTPUT) 

NXO.NYO = NO. OF X AND Y COORDS. FOR OBSERVERS 

XO , YO , ZO = X, Y, i Z COORDS. OF OBSERVERS (ALL AT ZO) 

NCONTR □ NO. OF SOUND LEVEL CONTOURS DESIRED 

CONTR □ NCONTR VALUES OF CONTOUR LEVELS ( PNL , PNL T , EPNL ) 

NP = NO. OF POINTS NEEDED TO SPECIFY AIRCRAFT PATH 

X A , Y A , Z A = NP VALUES OF X, Y, & Z ON AIRCRAFT PATH 

VA = NP VALUES OF AIRCRAFT VELOCITY 

EPP = NP VALUES OF AIRCRAFT POWER SETTING 

AL FI = NP VALUES OF A/C ANGLE OF ATTACK 

GAM □ NP VALUES OF A/C BANK ANGLE 

PSY = NP VALUES OF A/C FLAP ANGLE (FLAP NOISE) 

FLAPA □ NP VALUES OF FLAP ANGLES FOR AIRFRAME NOISE 
ILGR □ 1/0 (FOR LANDING GEAR DOWN/UP) 

IREVR □ 1/0 (Y/N FOR REVERSERS OPERATING), NP VALUES 
TSTART = T I M E ON AIRCRAFT AT FIRST PATH POINT GIVEN 
TD = SIZE OF TIME INCREMENTS IN SEC. 

NT = NO. OF TIME INCREMENTS (INDEP. OF NP), UP TO 100 
ICPA = 1/0 (Y/N TO CENTER TIME HISTORY ON CLOSEST POINT OF 

APPROACH; OTHERWISE START HISTORY AT FIRST TRAJECTORY POINT) 
ITITLE □ 1/0 (Y/N FOR TITLING OUTPUT WITH INFUT GEOMETRY) 

IGEOM □ 1/0 (Y/N FOR PRINTING EXTRA GEOMTRY INFO) 

T AMB , PAMB , RH = AMBIENT TEMP, PRESSURE AND REL . HUM. 

(UNIFORM ATMOSPHERE) 

NOTE THAT THE FOLLOWING DATA ARE ASSIGNED AS DEFAULT VALUES 
DATA I CP A, NXO,XO, TSTART, TD, NT, I GE0M/2*1, 20*500. ,0.,1.,21,0/ 

DATA NYO, YO, NCONTR, CONTR/2, 500 . , 1 9*1 000. ,1,90. , 95. ,3*100./ 

FOR TAKEOFF WITH 6 DEG CLIMB STARTING FROM 

X A = 0 . , Z A = E N G H T =8 FT, TO ZA=5000., WITH VA = 150., EPP = 100. 
DATA NP ,XA ,ZA , YA, GAM, VA/2, 0 . , 49*47496. ,8. ,49*5000. ,100*0. ,50*150./ 
DATA EPP, PSY, FLAPA, ILGR, IREVR/50*100 . ,100*0. ,100*0/ 

UNITS=ENG 
ZO = 4 . 

GAMMAF=1 .4 
T AMB =- 1 . 

PAMB -- 1 . 


32 



0006400 C 
0006500 C 
0006600 
0006700 
0006800 
0006900 C 
0007000 
0007100 
0007200 
0007300 
0007400 
0007500 
0007600 
0007700 
0007800 
0007900 
0008000 
0008100 
0008200 
0008300 
0008400 
0008500 
0008600 
0008700 
0008800 
0008900 
0009000 
0009100 
0009200 
0009300 
0009400 
0009500 
0009600 
0009700 
0009800 
0009900 
0010000 
0010100 
0010200 
0010300 
0010400 
0010500 
0010600 
0010700 C 
0010800 
00 10900 
0011000 C 
0011100 
0011200 
0011300 
0011400 
0011500 
0011600 
0011700 
0011800 
0011900 
0012000 
0012100 
0012200 
0012300 
0012400 
0012500 C 
0012600 
0012700 
0012800 
0012900 
0013000 
0013100 
0013200 


THESE NEG. VALUES TO DETECT IF DATA READ IN. FINAL DEFAULTS 
GIVEN AT STATEMENT 6. 

RH = 7 0 . 

NENG=1 
I TI TL E=1 

READ( 5,91) CCOMENT(I),I=1,20) 

READ( 5 , GRID) 

READ( 5 , TRAJ ) 

READC5, AMB) 

WRITEC 6 , 92 ) ( COMENT ( I ) , I = 1 , 2 0 ) 

IFCITITLE.EQ.O) GO TO 2 

IFCUNITS . EQ . ENG) WRITEC6.97) C XO C I ) , I =1 , NXO ) 

IFCUNITS. EQ. SI) WRITEC6 , 98 ) C XO ( I ) , I = 1 , NXO ) 

WRITEC6 , 99 ) C YO ( I ) , I = 1 , NYO ) 

WRITEC6.101) Z 0 

WRITEC6 , 102) CXACI),I=1,NP) 

WRITEC6,103) <YACI),I=1,NP) 

WRITEC6,104) CZACI),I=1,NP) 

WRITEC6,105) CEPP(I),I=1,NP) 

WR ITEC6,106) (VA(I),I=1,NP) 

WRITEC6,107) (ALF1(I),I=1,NP) 

WR I TEC6,108) ( GAM (I),I=1,NP) 

WRITEC6, 109) (PSYCI),I=1,NP) 

WR I TE(6, 139) (FLAPA(I),I=1,NP) 

WR ITEC6.140) (ILGRCI ) ,1 = 1, NP) 

WRI T E( 6 » 1 4 1 ) (IREVR(I),I = 1jNP) 

WRITEC6 , 90 ) 

2 IFCUNITS. EQ. ENG) GO TO 6 
Z0=Z0^3 . 28 

DO 3 1=1, NP 
XAC I ) =XA( I )K3 . 28 
YAC I )=YA( I )*3 . 28 
ZA(I)=ZA(I)X3.28 

3 VACI)=VA(I)*3.28 
DO 4 1=1, NXO 

4 X0CI)=X0CI)*3.28 
DO 5 1=1, NYO 

5 Y0(I)=Y0(I)*3.28 

TAMB = TAMBX1 .8 
PAMB=PAMBX . 02089 

6 IFCTAMB.LT.O. ) TAMB = 518.7 
IFCPAMB.LT. 0. ) P AMB =2 1 1 6 . 

NTI=NT/2 

C = 41 . 447^SQRT( GAMMA F*T AMB ) 

XXXiOO! CONVERT TO RADIANS, CALC TIMES AND ANGLES ALONG FLIGHT PATH 
TAC1)=TSTART 
DO 8 K= 1 , NP 
ALF1(K)=ALF1(K)^AR 
GAMCK)=GAMCK)«AR 
ALFCOSCK)=COSC ALF1CK) ) 

ALFSINCK)=SINCALF1CK) ) 

7 IF(K.EQ.l) GO TO 8 

DG=SQRTC (XACK)-XACK-l ) )XX2+CYACK)-YA(K-1 ) )««2) 

DZ=ZACK)-ZA(K-1 ) 

DS = SQRT(DG*X2 + DZ»(X2) 

TACK)=TA(K-1)+2.XDS/(VACK)+VACK-1) ) 

ALFCK-1 )=ALF1CK-1)+ATAN(DZ/DG) 

8 CONTINUE 

ALF(NP)=ALFCNP-1) + ALF1CNP)-ALF1CNP-1 ) 

9 DO 49 M=1 , NCONTR 
DO 40 1=1, NXO 
X=XO(I) 

ICON = 0 
FACT = 1 . 

DELST=1 . E5 
DELBST=1 . E5 
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0013300 
0013400 
0013500 
0013600 
0013700 
0013300 
0013900 
0014000 
0014100 < 
0 0 1 4 2 C 0 
0 0 1430 0 
0 0 144 0 0 
0 0 1450 0 
00 146 0 0 
0 0 14 7 0 0 
0014800 
0 014 90 0 
0 0 150 0 0 
0015100 
0015200 
0 0 1530 0 
0 0 1 5 4 0 0 
0015500 
0015600 
0015700 
0015800 
0015900 
0016000 
0016100 
0016200 
0016300 
0016400 
0016500 
0016600 
0016700 
0016800 
0016900 
0017000 
0017100 
0017200 
0017300 
0017400 
0017500 
0017600 
0017700 
0017800 
0017900 
0018000 C 
0018100 
0018200 
0018300 
0018400 
0018500 
0018600 
0018700 
0018800 
0018900 
0019000 
0019100 
0019200 
0019300 
0019400 C 
0019500 
0019600 
0019700 
0019800 
0019900 
0 020 0 0 0 
0020 100 


DO 39 J=l,NYO 
Y = Y 0 ( J ) 

IT ER - 0 
I J=IXJ*M 

IF(ICPA.EQ.l) GO TO 10 
TI=TSTART 
KST = 1 
GO TO 19 

xxyxxx FIND THE CLOSEST POINT OF APPROACH TO OBSERVER AT CI,J) 

10 DO 13 K = 1 , NP 
B -X-XA ( K ) 

D=Y-YACK) 

H=ZACK)-ZO 

IF( K . EQ . NP) GO TO 11 
DX=XA(K+1 )-XA(K) 

DY = YA(K + 1 ) — Y A C K ) 

DZ=ZACK+1)-ZACK) 

11 test = bhdx+d;-dy-h*dz 

IFCTEST) 15,14,12 

12 TESTST=TEST 
DXS=DX 

DYS = DY 
DZS=DZ 

13 CONTINUE 

DR = TEST/SQRT(DXX*2 + DY**2 + DZ**2 > 

TCP=TA(NP) 

IF( VA(NP) . GT . 0 . ) TCP r TCP+DR/VACNP) 

GO TO 17 

14 TCP=TA(K) 

GO TO 17 

15 IF(K.GT.l) GO TO 16 
DR=TEST/SQRTCDX**2+DYXX2+DZXX2) 

TCP-TAC1 ) 

I F C V A C 1 ) . GT . 0 . ) TCP = TCP + DR/VA( 1 ) 

GO TO 17 

16 DR=TESTST/SQRT(DXSXX2+DYSXX2+DZSXX2) 

VCP=SQRT(VA(K-1)xx 2+2. XDRX( VACK)-VA(K-l) )/(TA(K)-TA(K-l) ) ) 

TCP = TA(K-1) + 2.XDR/(VCP + VA(K-1) ) 

17 FNTI=HTI 
TI=TCP-FNTIxtd 
DO 18 K = 1 , NP 

IFC TI . GT . TACK) ) GO TO 18 
KST=K-1 

IFCK.EQ.l) KS T = 1 
GO TO 19 

18 CONTINUE 
KST Z NP 

19 FPMAX=0. 

DO 32 KI=1 , NT 

1FCTI.GE.TACKST+1)) KST=KST+1 
KT^KST 

IFCKST.GT.NP) KST=NP 
IFCKT.GT.NP-l) KT=NP-1 
TFR=CTI-TA(KST))/(TA(KT+1)-TACKT)) 

EPPST=EPPI 
EPPI = EPP ( KST ) 

IREV=IREVR(KST) 

ILG=ILGRCKST) 

FLAPI=FLAPA(KST) 

PSYI =PSY ( KST ) 

x x x x x VI IS INTERPOLATED VALUE WHEN VA CHANGE OCCURS 
VST=VI 

VI=VA(KST)+(VA(KT+1)-VA(KT))XTFR 
IFCTI.LT. TACD) VI = VAC1) 

IFCTI .GT.TACNP)) VI=VACNP) 

VHR = C VI + VACKST) )/C VACKT + 1 )+VACKT) ) 

DX=XACKT+1)-XACKT) 

DY=YACKT+1 )-YACKT) 
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0020200 
0020300 
0 0 2 0 4 0 0 
0020500 
0020600 
0020700 
0020S00 C 
0020900 
0 021 000 
0021100 
0021200 C 
0021300 
0021400 
0021500 
0021600 
0021700 
0021800 
0021900 C 
0022000 
0022100 
0022200 
0022300 
0022400 
0022500 
0022600 
0022700 
0022800 
0022900 
0023000 C 
0 0231 0 0 
0023200 
0023300 
0023400 
0023500 
0023600 
0023700 
0023800 
0023900 C 
0024000 


DZ=ZACKT+1)-ZACKT) 

DGSQ=DX**2+DY**2 
DG=SQRT ( DGSQ ) 

DS=SQRT(DGSQ+DZ*X2) 

20 ALFCS=C ALFCOSCKST)xDG-ALFSINCKST)XDZ)/DS 
ALFSN=C ALFSIN(KST)XDG+ALFCOSCKST)XDZ)/DS 

ALFC5 AND ALFSN BY COS & SIN OF SUM OF 2 ANGLES, ALF=ALF1+ALF2 
XI=XACKST)+DXXTFRXVMR 
YI=YA(KST)+DYXTFRXVMR 
ZI=ZA(KST)+DZXTFRXVMR 

21 B=X-XI 
D=Y-YI 
H r Z I -ZO 

R=SQRTCBXX2+DX*2+HX*2) 

TAU=TI+R/C 

22 IFCR.LT. .01) GO TO 31 

SOLVE FOR DOT PRODUCTS, AIRCRAFT UNIT VECTORS 
BPD=CBXDX+DXDY)/DG 
DMB=(DXDX-BXDY)/DG 
BPDPH=BPDXALFSN+HXALFCS 
RDOTA=BPDXALFCS-HXALFSN 
I F C RDOT A . EQ . 0 . ) RDOTA = .1E-60 
GAMSN=SINCGAMC KST ) ) 

GAMCS=COSCGAM(KST) ) 

RD0TL1 = DMBXGAMCS + BPDPHXGAMSN 
RDOTU=DMBXGAMSN-BPDPHXGAMCS 
IFCRDOTU . EQ . 0 . ) RDO T U = - . 1 E- 5 0 

SOLVE FOR SOURCE-RELATED ANGLES 

23 COSTH^RDOT A/R 

I F( COSTH . GT . 1 . ) CO STH = 1 . 

IFCCOSTH.LT.~l.) COSTH=-l. 

THETA=ARCOSCCOSTH)/AR 

THETAF=ATAN2C-RD0TU,RD0TA)/AR 

IFCRDOTU .GT . 0 . . AN D . RDOT A . L T . 0 . ) TH ETA F = THET A F+ 36 0 . 

THETAH=ATAN2CRD0TW,RD0TA)/AR 

PHI=ATAN2CRDOTW,-RDOTU)/AR 

DOPPLER SHIFT CORR. BASED ON COSINE OF DIRECTION OF MOTION 
27 COSDOP=( BXDX+DXDY-HXDZ)/DS/R 


0024100 
0024200 
0024300 
0024400 
0024500 
0024600 
0024700 
0024800 
0 024900 
0025000 
0025100 
0025200 
0025300 
0025400 
0025500 
0025600 
0025700 
0025800 
0025900 
0026000 C 
0026100 
0026200 
0026300 
0026400 
0026500 
0026600 
0026700 
0026800 
0026900 
0027000 


FDOP=l . -VIXCOSDOP/C 
VIEW=ARSIN(H/R)/AR 
HEAD=ARSIN(DY/DG)/AR 
I F( IGEOM . EQ . 0 ) GO TO 29 
IFCKI.EQ.l.AND.IJ.EQ.l) WRITE(6,93) 

IFCKI . EQ .NTI+1 . AND. ICPA. EQ. 1) WRITEC6,95) 

IF(UNITS.EQ.SI) GO TO 28 

WRITE (6, 94) KI,XI,YI,ZI,R,THETA,THETAF,THETAH,PHI,TI,TAU,EPPI, VI 
GO TO 29 

28 XIM=XI/3 . 28 
YIM=YI/3.28 
ZIM=ZI/3 . 28 
RM=R/3 . 28 

V I M = V I / 3 . 28 

WRITEC6 , 94 ) KI , XIM, YIM, ZIM, RM, THETA , THETAF , THET AH , PHI , TI , TAU , - 
1 EPPI , VIM 

29 I S K I P = 0 

IFCKI . EQ. 1) GO TO 30 

IF( EPPI . EQ . EPPST . AND. VI. EQ. VST) ISKIP=1 

30 CALL NOISCPNL ,PNLT) 

IFCKI. EQ.NTI+1. AND. IGEOM. EQ.l. AND. ICPA.EQ.l) WRITEC6,96) 
IFCIOUT(2).EQ.O.AND.IOUTC3).EQ.O) GO TO 32 
IFCI0UTC2). EQ.l. OR. IOUTC3). EQ.l) FPNL(KI)=PNL 
IFCI0UTC2) . GE.2.0R. IOUTC3) .GE. 2) FPNL ( KI ) =PNLT 
TIMEC KI ) =TAU 

IFCFPNLCKI) .LT.FPMAX) GO TO 32 
FPMAX = FPN L C KI ) 

IFCITER.GT.O) GO TO 32 
FPNLMXCI, J)=FPMAX 
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0027100 
0027200 
0027300 
0027400 
0027500 
0027600 
0027700 
0027800 
0027900 
0028000 
0028100 
0028200 
0028300 
0028400 
0028500 
0028600 
0028700 C 
0028800 
0028900 
0029000 
0029100 
0029200 
0029300 
0029400 
0029500 
0029600 
0029700 
0029800 
0029900 
0030000 
0030100 
0030200 
0030300 
0030400 
0030500 C 
0030600 
0030700 
0030800 
0030900 
0031000 
0031100 
0031200 
0031300 
0031400 
0031500 
0031600 
0031700 
0031800 
0031900 
0032000 
0032100 
0032200 
0032300 
0032400 
0032500 
0032600 
0032700 
0032800 
0032900 
0033000 
0033100 
0033200 
0033300 
0033400 
0033500 
0033600 
0033700 
0033800 
0033900 


TAUMXCI, J)=TAU 
THETMXCI, J)=THETA 
GO TO 32 

31 WR ITEC 6 , 126) KI,TAU 

32 TI=TI+TD 

END OF LOOP IN TIME INCREMENTS WITH KI 
IFCI0UTC2).NE.3.AND.I0UTC3).NE.3) GO TO 33 
FPMAX= EPNLCFPNL, FPMAX, TIME, NT, TIS,TIF) 

IF(ITER.EQ.O) FPNLMXCI, J)=FPMAX 

33 IFCIOUTC3).EQ.O.OR.J.GT.2,OR.ICON.EQ.l) GO TO 39 
DEL =ABS C CONTR CM) -FPMAX) 

I FC DEL .GT. .1) GO TO 34 
YCONC I )=Y 
ICON=l 
GO TO 39 

34 IF(DEL .GE.DELBST) GO TO 35 

STORE BEST AND NEXT-BEST VALUES OF DEL , FPMAX , AND Y 
DELST=DELBST 
DELBST = DEL 
FST=FBEST 
FBEST = FPMAX 
YST =YBEST 
YBEST=Y 

I FC FACT . L E . .5) FACT = 2 . *FACT 
IF(J.EQ.l) GO TO 39 
GO TO 37 

35 I F ( DEL . GE . DEL ST ) GO TO 36 
DELST = DEL 

FST =FPMAX 
YST=Y 

I FC FACT . L E . . 5 ) FACT=2.*FACT 
GO TO 37 

36 FACT=0 . 5*FACT 

37 IFdTER.LT. 9) GO TO 38 

ONE MORE TRY AT Y NEAR ZERO 
Y=1 . 

ITER=ITER+1 

IFCITER.LE.il) GO TO 10 
YCONC I )=YBEST 

WRITEC6 , 127 ) CONTRCM) ,X,YBEST, FBEST 
GO TO 39 

38 IFCITER. GT. 1 ) Y = YB EST+FACT* C YBEST-YST ) * C CONTR CM ) -FB EST )/ C FBEST- FST ) 
IFCITER.LE.l) Y=YBE5T*CYST/YBEST)**CCFBEST-C0NTRCM) )/ C FB EST- FST ) ) 
ITER=ITER+1 

GO TO 10 

39 CONTINUE 

40 CONTINUE 

IFCI0UTC2) . EQ. 0) GO TO 45 
IFCI0UTC2) .EQ. 1) WRITEC6,115) 

IFCI0UTC2) . EQ.2) WRITEC6,116) 

IFCI0UTC2) . EQ.3) WRITEC6,117) 

WRITEC6,110) 

IFCUNITS . EQ . SI ) GO TO 41 
WRITEC6.111) CYOCJ),J=l,NYO) 

GO TO 43 

41 DO 42 J = 1 , NYO 

42 XOMCJ)=YOC J)/3.28 

WRITEC6, 111) CXOMC J) , J=1 ,NYO) 

43 DO 44 1=1, NXO 

IFCUNITS. EQ. ENG) WRITEC6,112) XOC I ) , C FPNLMXC I , J ) , J=1 , NYO) 

XOMM=XO C I )/3 . 28 

IFCUNITS. EQ. SI) WRITEC6,112) XOMM, C FPNLMXC I , J ), J =1 , NYO ) 

WRIT EC 6, 113) C THETMXC I,J),J = l,NYO) 

WRITEC6 , 114) C TAUMXCI, J) , J=l,NYO) 

44 CONTINUE 

45 IFCI0UTC3) .EQ.O) STOP 

IFCI0UTC3) .EQ.l.AND.M.EQ.l) WRITEC6,118) 

IFCI0UTC3) . EQ.2. AND. M.EQ.l) WRITEC6,119) 

IFCI0UTC3) . EQ.3. AND. M.EQ.l) WRITEC6, 120) 


36 



0034000 
0034100 
0034200 
0034300 
0034400 
0034500 
0034600 
0034700 
0034800 
0034900 
0035000 
0035100 
0035200 
0035300 
0035400 
0035500 
0035600 
0035700 
0035800 
0035900 
0036000 
0036100 
0036200 
0036300 
0036400 
0036500 
0036600 
0036700 
0036800 
0036900 
0037000 
00371 00 
0037200 
0037300 
0037400 
0037500 
0037600 
0037700 
0037800 
0037900 
0038000 
0038100 
0038200 
0038300 
0038400 
0038500 
0033600 
0038700 
0038800 
0038900 
0039000 
0039100 
0039200 
0039300 
0039400 
0039500 
0039600 
0039700 
0039800 
0039900 
0 040000 
0040100 
0040200 
0040300 
0040400 
0040500 
0040600 
0040700 
0040800 


WRITE(6,121) CONTR! M) 

NXM=NXO-l 
AREA=Q . 

DO 46 1=1, NXM 

46 AREA=AREA+!X0!I+l)-X0!I))#!YC0N!I+l)+YC0N!I))/2. 
IF( UNITS. EQ.SI) GO TO 47 

WRITE!6,122) (XO(I),I=l, NXO ) 

WRITE!6,123) ! YCON ! I ) , I =1 , NXO ) 

AREAl=AREA/43560 . 

AREA2 = AREA/2 78 784 0 0 . 

WRITEC6 , 128 ) AREA , AREA1 , AREA2 
GO TO 49 

47 DO 48 1=1, NXO 
XOM! I)=X0!I)/3.28 

48 YCONM! I)=YC0N!I)/3.28 
WRITE!6,124) ! XOM! I ) , I =1 , NXO ) 

WRITE! 6 , 125 ) ! YCONM! I ) , 1=1 , NXO ) 

AREA=AREA/10.764 
AREA1=AREA/1 . E6 

WRITEC6 , 129) AREA , AREA1 

49 CONTINUE 


STOP 

90 FORMAT ! 1H4 ) 

91 FORMAT(8X,20A4) 

92 FORMAT( 1 H 1 , 2 OX , 2 0 A4 ) 

93 FORMAT!///, ' GEOMETRIC RELATIONS OF AIRCRAFT/OBSERVER'/- 

1 8X , ' KI XI YI ZI R THETA THETAF THETAH- 

2 PHI T I TAU EPPI VI') 

94 FORMAT (2X, 6H GEOM : , I 3 , 4 F8 . 1 , 2X , 4 F7 . 1 , IX , 2 F8 . 2 , 2X , 2 F8 . 1 ) 

95 FORMAT! ’x*x*** CLOSEST POINT OF APPROACH') 

96 FORMAT ! '****##' ) 

97 FORMAT!' OBSERVER COORDINATES !IN FEET).'/8H X0:,15F8.1/- 

1 8X » 5 F8 . 1 ) 

98 FORMAT!' OBSERVER COORDINATES !IN METERS). '/8H X0=,15F8.1/- 

1 8X.5F8.1) 

YO: , 15F8 . 1/8X, 5F8 . 1 ) 

ZQ: ,F8.1) 

AIRCRAFT TRAJECTORY POINTS AND OPERATING CONDITIONS.'/- 
XA : , 1 5 F8 . 1/8X, 15F8. 1/8X, 15F8. 1/8X,5F8. 1) 


99 FORMAT !8H 

101 FORMAT !8H 

102 FORMAT!' 

1 8H 


103 FORMAT !8H 

104 FORMAT ! 8H 

105 FORMAT ! 8H 

106 FORMAT ! 8H 

107 FORMAT ! 8H 

108 FORMAT ! 8H 

109 FORMAT ! 8H 

139 FORMAT ! 8H 

140 FORMAT ! 8H 

141 FORMAT ! 8H 

110 FORMAT ! 7H 

111 FORMAT ! 7 H 


YA 
ZA 
EPP 
V A 
AL FI 
GAM 
PSY 
FLAPA 
ILGR 
IREVR 


, 15F8 . 1/8X, 15F8 . 1/8X, 15F8 . 1/8X, 5F8 . 1 ) 

, 15F8 . 1/8X, 15F8 . 1/8X, 15F8 . 1/8X, 5F8 . 1 ) 

, 15F8 . 1/8X, 15F8 . 1/8X, 15F8 . 1/8X, 5F8 . 1 ) 

, 15F8 . 1/8X, 15F8 . 1/8X, 15F8 . 1/8X, 5F8 . 1 ) 

, 15F8 . 1/8X, 15F8 . 1/8X, 15F8 . 1/8X, 5F8 . 1 ) 

, 15F8 . 1/8X, 15F8 . 1/8X, 15F8 . 1/8X, 5F8 . 1 ) 

, 15F8 . 1/8X, 15F8 . 1/8X, 15F8 . 1/8X, 5F8 . 1 ) 

, 15F8 . 1/8X, 15F8 . 1/8X, 15F8 . 1/8X, 5F8 . 1 ) 

, 15I8/8X, 15I8/8X,15I8/8X,5I8) 

, 15I8/8X, 15I8/8X, 15I8/8X,5I8) 

XO , 20X , 12H YO POSITION) 

POS , 7X , 1 6 F7 . 0 ) 

112 FORMAT! F7 . 0 , 7H LEVEL ,16F7.1) 

113 FORMAT ! 8X , 7H THETA ,16F7.1) 

114 FORMAT ! 9X, 7H TIME ,16F7.2) 

115 FORMAT!///20X, 'VALUES OF PNL-MAX ' ) 

116 FORMAT!///20X, 'VALUES OF PNLT-MAX' ) 

117 FORMAT1///20X, 'VALUES OF EPNL ' ) 

118 FORMAT !///l OX, ' CORRDINATES FOR 

119 FORMAT (/// 1 OX , ' COORDINATES FOR 

120 FORMAT!///10X, ' COORDINATES FOR 

121 FORMAT!/' CONTOUR LEVEL = • , F8 . 1 , 

122 FORMAT ! 1 6 H X - COORD ! FT ) s , 14F8 . 1 ) 

123 FORMAT ! 16H Y - COORD ! FT ) : , 1 4 F8 . 1 ) 

124 FORMAT ! 16H X - COORD ! M):,14F8.1) 

125 FORMAT ! 16H Y - COORD ! M):,14F8.1) 

126 FORMAT!' R GOES TO ZERO AT KI =',I3, 

1 OMITTED IN NOISE SUMMATION') 

127 FORMAT!/' Y-COORD. FOR',F6.1,' DB CONTOUR DID NOT CONVERGE IN 10- 
1 ITERATIONS AT XO = ’ , F7 . 1 / 5X , ' B EST VALUE OF Y = ' , F7 . 1 , ' , BEST- 


"PNL" 
"PNLT" 
"EPNL" 
DB' ) 


CONTOUR' ) 
CONTOUR’ ) 
CONTOUR' ) 


TAU =' ,F4.1, 


POINT- 
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0040900 

0041000 

0041100 

0041200 

0041300 


2 LEVEL =',F6.1) 

128 FORMAT ( 25H APPROX. CONTOUR AREA 
1 7H ACRES, ,F7.2,9H SQ MILES) 

129 FORMAT ( 25H APPROX. CONTOUR AREA 
END 


= , El 1 . 3 , 7H SQ 


FT, , F9 . 2,- 


= , El 1 . 3 , 6 H SQ M, 


F9.2.6H SQ KM) 


Subroutine NOIS 


0000100 c 

0000200 C 
0000300 C 
0000400 C 
0000500 C 
0000600 C 
0000700 C 
0000800 C 
0000900 C 

0001000 c 
0001100 c 

0001200 C 
0001300 C 
0001400 C 
0001500 C 
0001600 C 
0001700 C 
0001800 C 
0001900 
0002000 
0002100 
0002200 
0002300 
0002400 
0002500 
0002600 
0002700 
0002800 
0002900 
0003000 
0003100 
0003200 
0003300 
0003400 C 
0003500 C 
0003600 C 
0003700 C 
0003800 C 
0003900 C 
0004000 C 
0004100 C 
0004200 C 
0004300 C 
0004400 C 
0004500 C 
0004600 C 
0004700 C 
0004800 C 
0004900 C 
0005000 C 
0005100 C 
0005200 C 
0005300 C 
0005400 C 
0005500 C 
0005600 C 
0005700 C 
0005800 C 
0005900 C 
0006000 C 


NOISE SUBROUTINE FOR USE IN FOOTPRINT PROGRAM 
INTERPOLATES FOR ENGINE MAP PARAMETERS, CALLS 
SPECIFIED NOISE SOURCE SUBROUTINES, AND MAKES 
PROPAGATION CORRECTIONS. INPUTS ARE IN NAMELIST 
BLOCKS "PARAM" AND "SOURCE". "PARAM" CONSISTS OF 
ARRAYS OF ENGINE VARIABLES AS A FUNCTION OF "EPP”, 

FOR EACH VARIABLE REQUIRED FOR SPECIFIED SOURCES. 

"SOURCE" CONTAINS INDICATORS FOR NO. OF ENGINES, 

AND NOISE SOURCES AND CORRECTIONS DESIRED, AND FOR 
TYPE OF OUTPUT DESIRED. 

CALLED BY FOOTPR 

CALLS SUBROUTINES AIRATT, TERP, FAN, JET, CORE, TURB,SHLD, FLAP, AIRFR, 
BAS AT , EGAC,GNDRF,PERNOY, TONE 

INFLOW: R, THETA, EP PI, X,Y,TAU,IJ,KI, UNITS, ISKIP, TAMB , PAMB, FDOP 

OUTFLOW: TP , F , I OU T , FDOP , VC , V F , T C , T F , FU EL , WA FA N , RPM , T I PM , T I PM2 , 

DELT,FPR,WC0RE,P3,T3,T4,TURTS,TCTUR,F1,F2,F3,F4 

RETURN FLOW: TP , SSP L , A I R ATT , P ERNOY , TON E 


SUBROUTINE NO I S ( PN L , PNL T ) 

DIMENSION AEPP(10),AVC(10),AVF(10),ATC(10),ATF(10),ATIPM(10) ,- 

1 AWAFAN(10),ARPM(10),ADELT(10),AFPR(10),AWCORE(10),AP3(10),- 

2 AT3(10),AT4(10),ATURTS(10),AFUEL(10),ATIPM2(10),ATCTUR(10) 
DIMENSION ATM (24) ,SSPL(24) , IFREQC24) 

COMMON/GEOM/R, THETA, THETAF, THETAH, PHI, VIEW, HEAD, PSYI,FLAP I, EPPI,- 
1 VI,X,Y,TAU,IJ,KI 

C0MM0N/SPECT/TP(24) ,SPL(24) ,F(24) , DUMY1 , DUMY2 , DUMY3 , FI, F2, F3, F4 
COMMON/PAR AM/ VC , VF , TC , TF , FUEL , WAFAN , RPM, T I PM , T IPM2 , DELT , FPR , - 
1 WCORE,P3,T3,T4,TURTS,TCTUR 

COMMON UNITS, ISKIP, IOUT(3),IREV,ILG, FDOP, C, TAMB, PAMB, RH,NENG,ISUPP 
NAMELIST/SOURCE/NENG , ITOT , I FAN , IJET , IFLAP , ICORE, ITURB , IAIRF, - 
1 I DOP , I ATM , I EGA , I GND , I SUPP , I SH L D , I OU T , FI L BW 
N AMEL IS T/P ARAM/NPARAM , AVC , AVF » ATC , AT F , AFUEL > AT IPM , AT IPM2 , AWA FAN , - 
1ARPM, AD EL T, A FPR, AWCORE, AP3, AT3, AT4, ATURTS, ATCTUR, A EPP, IC0RR,TC0RXP 
NOTE: PARAM VARIABLES MUST BE ENTERED IN ORDER OF INCREASING EPP 
NENG=NUMBER OF ENGINES 

ISUPP=l/0 (Y/N ON SUPPRESSION SPECTRA APPLIED TO EACH SOURCE 
FOR WHICH SUPRES5I0N SPECTRA ARE SUPPLIED: MAY BE 

OVERRIDDEN BY ISUPPR IN INDIVIDUAL SOURCE INPUT) 

I DOP = 1/ 0 (Y/N ON DOPPLER FREQ AND INTENSITY CORRECTION); 

IATM^O = NO CORRECTION FOR ATMOSPHERIC ATTENUATION 

1 : CORRECT TOTAL NOISE FOR ATMOS. ATTEN. BY ARP 866 

2 = CORRECT TOTAL FOR ATMOS. ATTEN. BY BASS & SHIELDS 
IEGA=l/0 (Y/N ON EXTRA GROUND ATTEN - ON TOTAL NOISE ONLY) 
ISHLD=l/0 (Y/N FOR SHIELDING OF FAN, JET, CORE « TURBINE SOURCES) 

I GND = 0 : NO GROUND REFLECTIONS - FREE FIELD 

1 : FLAT 3 DB GROUND REFLECTION CORRECTION 

2 : CALC GROUND REFLECTION FOR GROUND IMPEDANCE SPECIFIED 
ICORR=1/0 (Y/N FOR ENGINE PARAMS TO BE CORR. TO AMBIENT) 

TCORXP □ EXPONENT FOR CORE TEMP. CORRECTIONS IN ENGINE PARAMS 
FILBW □ FRACTION OF FILTER BANDWIDTH WITH GAIN=1 

IOUT ( ) SELECTS LEVEL OF NOISE PRINTOUT; I.E., 


TOUT ( 1 ) 


IOUT ( 2 ) □ 


IOUT ( 3 ) 


NO INDIVIDUAL SOURCE PRINTOUT 
SOURCE SPECTRA, INCLUDING OASPL , PNL , PNLT 
PRINTS ONLY OASPL, PNL, PNLT OF EACH SOURCE 
PRINTS ONLY OASPL, PNL, PNLT OF TOTAL NOISE 
NO PRINTOUT AT GRID POINTS SPECIFIED 
PRINTS PNL-MAX AT GRID POINTS 
PRINTS PNLT-MAX AT GRID POINTS 
PRINTS EPNL AT GRID POINTS 
HO CONTOUR FOLLOWING 
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0006100 C 
0006200 C 
0006300 C 
0006400 C 
0006500 C 
0006600 C 
0006700 
0006800 
0006900 
0007000 C 
0007100 
0007200 
0007300 
0007400 
0007500 
0007600 
0007700 
0007800 C 
0007900 
0008000 
0008100 
0008200 C 
0008300 
0008400 
0008500 
0008600 
0008700 
0008800 
0008900 
0 009000 
0009100 
0009200 
0009300 
0009400 
0009500 
0009600 
0009700 
0009800 C 
0009900 
0010000 
0010100 
0010200 
0010300 
0010400 
0010500 
00 1 0600 
0010700 C 
0010800 
0010900 
0011000 
0011100 
0011200 C 
0011300 
0011400 
0011500 
0011600 
0011700 
0011800 
0011900 
0012000 


l: PRINTS COORDS. OF PNL-MAX CONTOURS 

2: PRINTS COORDS. OF PNLT-MAX CONTOURS 

3: PRINTS COORDS. OF EPNL CONTOURS 

NOTE THAT IOUTC1) CAN BE OVER-RIDDEN IN INDIVIDUAL SOURCE 
PROGRAM BY SPECIFYING JOUT=l IN INPUT DATA TO THAT SOURCE 
THIS DATA INPUT IS FOR DEFAULT VALUES 

DATA ITOT,IFAN,IJET,IFLAP,ICORE,ITURB,IAIRF,IATM»I EGA ,IGND,ISHLD>- 
1 FILBW/1, 10*0,1./ 

DATA SI , ENG/2HSI , 3HENG/ 

IFCIJ.NE.l.OR.KI.NE.l) GO TO 4 

ISUPP=0 

IDOP=0 

ITOT=l 

ICORR=0 

TCORXP=l. 

FUEL=0. 

READ(5, SOURCE) 

READC 5 , PARAM ) 

IFCAEPP(l) . GT.AEPP(NPARAM)) URITE(6,99) 

IFCUNITS. EQ. ENG) GO TO 2 

DO 1 1=1 , NPARAM 

AVC(I)=AVC(I)*3.28 

AVF(I)=AVF(I)*3.28 

ATC(I)=ATC(I)*1 .8 

ATF(I)=ATF(I)*1 .8 

AFUEL(I)=AFUEL(I)*2.205 

AWAFAN(I)=AWAFAN(I)*2.205 

ADELT(I)=ADELT(I)*1 .8 

AWCORECI)=AWCORE(I)*2.205 

AP3(I)=AP3(I)*. 02089 

AT3(I)=AT3(I)*1.8 

AT4(I)=AT4CI)*1.8 

ATCTURCI)=ATCTUR(I)*1.8 

1 ATURTS(I)=ATURTS(I)*3.28 

2 DO 3 L = 1 , 24 

FCL )=10 . **( . l*FLOAT(L + 16) ) 

IFCIATM.EQ. 1) ATM(L)=AIRATT(T AMB ,RH,F(L)) 

3 IFREQ(L)=F(L) 

F1=.78250188+.10874906*FILBW 

F2=1.-.10874906*FILBW 

F3=1.+.12201845*FILBW 

F4 =1.24 40 36 9-. 12201845* FI LBW 

IFdOUT(l).EQ.l) WRITE(6,91) ( I FREQ ( L ) , L = 1 , 24 ) 

I F( IOUT ( 1 ) . EQ . 2 ) WRITEC6, 92) 

I F( IOUT ( 1 ) . EQ . 3) WRITE (6,93) 

IFCIOUT(l) .GE.2) WRITEC6, 94) 

ENTER HERE FOR SUBSEQUENT OBSERVER POINTS 

4 TTOT=TAMB+VI*VI/12025. 1 
PT0T=PAMB*(TT0T/TAMB)**3.5 
TC0RR=TT0T/518.7 
TC0RR1=SQRT(TC0RR) 

TC0RR2=TC0RR**TC0RXP 
PC0RR = PT0T/2116 . 

WCORR=PCORR/TCORRl 
IF(IDOP.EQ.O) FDOP=l. 


0012100 
0012200 
0012300 
0012400 
0012500 
0012600 
0012700 
0012800 C 
0012900 


IF(IOUT(l).EQ.l. AND. UNITS. EQ. ENG) WRITE(6,95) X, Y, TAU , R , THETA 
XM=X/3 . 28 
YM=Y/3 . 28 
RM=R/3 . 28 

IF(IOUTCl) .EQ.l. AND. UNITS. EQ. SI) WRITE(6,96) XM,YM, TAU, RM, THETA 
DO 5 L=1 , 24 
5 TP ( L ) =1 . E-50 

I F( I FAN . EQ . 0 ) GO TO 7 
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0013000 
C 0 1 3 1 0 0 
0013200 
0C13300 
0013^00 
0013500 
0013600 
0013700 
0013200 
0013900 
0016000 
0016100 
0016200 
0016300 
0016600 
0016500 
0016600 
0016700 
0016800 
0 C 1 6 9 0 0 
CQ15000 
0015100 
C 0 1 52 0 0 
0015300 
0015600 
0015500 
0015600 
0015700 
0015800 
0015900 
0016000 
CC16100 
0016200 
0016300 
0 0 1 6 6 0 0 
0016500 
C 0 1 6 6 0 0 
0016700 
0016800 
0016900 
0 0 170 0 0 
0017100 
0 0 1 720 0 
0C 1730 0 
0017600 
0017500 
0017600 
0 0 1770 0 
0017300 
0 0 1790 0 
0018000 


IFCISKIP.EQ.l) GO TO 6 

CALL TERPCATIPM,EPPI,1. , 1 . , AEPP , 1 . , 1 . , NPARAM, 1 , 1 , TIPM) 

CALL TERPC AWAFAN, EPPI, 1 . , 1 . , AEPP , 1 . , 1 . , NPARAM, 1 , 1 ,WAFAN) 

CALL TERPCARPM,EPPI,1. , 1. ,AEPP,1. , 1 NPARAM, 1 , 1 , RPM) 

CALL T ERP (ADEL T,EPP I, 1. , 1. , AEPP, 1 . ,1. , NPARAM, 1,1, DEL T) 

CALL TERPC AFPR,EPPI, 1 . , 1 . , AEPP, 1 . , 1 . , NPARAM, 1 , 1 ,FPR) 

CALL TERPC AT IPM2, EPPI , 1 ., 1 . ,AEPP,1. , 1 ., NPARAM, 1 , 1 , TIPM2 ) 

I F C ICORR . EQ . 0 ) GO TO 6 
WAFAN=WAFAN*WCORR 
RPM=RPM*TC0RR1 
DELT=DELT*TCORR 

6 CALL FAN 

7 IFCIJET.EQ.O) GO TO 9 
IF( ISKIP . EQ . 1 ) GO TO 8 

CALL TERP ( AVC, EPPI , 1 . , 1 . , AEPP, 1 . , 1 . , NPARAM, 1, 1 , VC) 

CALL TERPC AVF, EPPI , 1 . , 1 . , AEPP, 1 . , 1 . , NPARAM, 1 , 1 , VF) 

CALL TERPCATC, EPPI,1 . ,1. , A EPP , 1 . ,1. , NPARAM, 1 , 1 ,TC) 

CALL TERPCATF, EPPI, 1 . ,1 . ,AEPP, 1. , 1 . , NPARAM, 1,1, TF) 

CALL TERPC A FUEL, EPP I , 1 . , 1 . , AEPP, 1 . ,1 . .NPARAM, 1 , 1,FUEL ) 

CALL TERPC A WC ORE, EPPI , l.,l.,AEPP,l.,l. , NPARAM, 1 , 1 ,WCORE) 

IFC ICORR . EQ . 0 ) GO TO 8 

VC=VC*TC0RR1 

VF=VF*TC0RR1 

TC=TC*TC0RR2 

TF=TF*TCORR 

FUEL = FUEL *PCORR*TCORRl 
WCORE=WCORE*WCORR 

8 CALL JET 

9 IFC ICORE. EQ . 0 ) GO TO 11 
IFC ISKIP . EQ. 1 ) GO TO 10 

IFCIJET.EQ.O) CALL TERPC AWCORE, EPPI,1 . ,1.,AEPP,1.,1. , NPARAM, 1 , 1 , - 
1 WCORE) 

CALL TERPC AP 3, EPPI, 1 . , 1 . , AEPP, 1 . ,1. ,NPARAM,1,1,P3) 

CALL TERPCAT3, EPPI, AEPP, l.,l., NPARAM, 1, I, T3) 

CALL TERPC AT6, EPPI, 1 . , 1 . , AEPP,1. , 1 . , NPARAM, 1, 1,T6) 

IFCIJET.EQ.O) CALL TERP C AFUEL , EPP I , 1 . , 1 . , A EPP , 1 . , 1 . , NPARAM , 1 , I , - 
1 FUEL) 

IFCICORR.EQ.O) GO TO 10 

IFCIJET.EQ.O) WCORE =WCORE*WCORR 

P3=P3*PCORR 

T3=T3*TC0RR 

T6=T6*TC0RR2 

IFCIJET.EQ.O) FUEL=FUEL*PCORR*TCORRl 

10 CALL CORE 

11 IFC ITURB . EQ . 0 ) GO TO 13 
IFCISKIP.EQ.l) GO TO 12 

IFCIJET.EQ.O) CALL T ERPCATC, EPPI, 1. , 1. , A EPP, 1 . , 1 . , NPARAM, 1,1, TC) 

I F( I FAN . EQ . 0 ) CALL T ERPC ARPM, EPPI, 1 . , 1 . , A EPP, 1 . , 1 . , NPARAM, 1 ,1 ,RPM) 
IFCIJET.EQ.O. AND. ICORE. EQ.O) CALL TERP C AWCORE, EPPI , 1 . ,1.,AEPP,1.,- 
I 1 ., NPARAM, I , 1 , WCORE) 

IFC I JET . EQ. 0 . AND. ICORE. EQ. 0) CALL TERPCAFUEL,EPPI,1.,1.,AEPP,1.,- 


0018100 
0018200 
0018300 
0018600 
0018500 
0018600 
001S700 
0018800 
0 018900 
0019000 
0019100 
0019200 
0019300 
0019600 C 
0019500 
0019600 
0019700 
0019800 


1 1. , NPARAM, 1,1, FUEL) 

CALL TERPC ATURTS, EPPI, 1 . ,1 . , AEPP, 1 . ,1. , NPARAM, 1, 1 ,TURTS) 

CALL TERPC ATCTUR, EPPI, I ., 1 . ,AEPP,1 ., 1 . , NPARAM , 1 , 1 , TCTUR ) 
IFCTCTUR.LT. 1.) CALL T ERPCATC, EPPI, I. ,1., A EPP, 1 . , 1 . , NPARAM, I , 1 , - 
I TCTUR) 

IFCICORR.EQ.O) GO TO 12 

TCTUR=TCTUR*TC0RR2 

IFC IFAN . EQ . 0 ) RPM=RPM*TC0RR1 

IFC I JET. EQ . 0 . AND. ICORE. EQ . 0' ) WCORE=WCORE*WCORR 

IFC I JET. EQ . 0 . AND. ICORE. EQ . 0 ) FUEL=FUEL*PCORR*TCORRl 

TURTS=TURTS*TC0RR1 

12 CALL TURB 

13 IFCISHLD. EQ. 1) CALL SHLD 

SHIELDING APPLIED TO ONLY SOURCES ABOVE THIS POINT 
IFCIFLAP.EQ.O) GO TO 15 
IFCISKIP.EQ.l) GO TO 16 
IFCIJET. EQ. 1 ) GO TO 16 

CALL TERPC A VC, EPPI , 1 . ,1 . , AEPP, 1 . ,1. , NPARAM, 1, 1, VC) 


40 


0019900 
0020000 
0020100 
0020200 
0020300 
0 0 2 0 9 0 0 
0020500 C 
0020600 
0020700 
0020800 
0020900 
0021 000 
0 02110 0 
0 021200 
0021300 
0 0 219 0 0 
0021500 
0021600 
0 021 70 0 
0 0 2 1 S 0 0 
0021900 
0022000 
0022100 
0022200 
0022300 
0022900 
0022500 
0 0226 0 0 
0 0227 0 0 
0022800 
002290 0 
0023000 
0023100 
0023200 
0 023300 
0023900 
0023500 
0023600 
0 023700 
0023800 
0023900 


CALL TERP!AVF,EPPI,1.,1. ,AEPP,1. , 1 . , NPARAM, 1 , 1 , VF) 

IFCICORR.EQ.O) GO TO 19 
VC=VC*TC0RR1 
VF-VFXTCORRl 
19 CALL FLAP 

15 IF(IAIRF.EQ.l) CALL AIRFR 
DO 16 L -1 , 29 

IFCIGND.EQ.l) TP! L)=TP! L)*2. 

SSPL!L)=10.XALOG10!TP!L)) 

IFIIATM.EQ.l) SSPL!L)=SSPL!L)-ATM(L)XR/1000. 

16 CONTINUE 

I Ft I ATM . EQ . 2 ) CALL B A S AT ( R , T AMB , PAMB , RH , SSPL ) 

17 I F ! I EGA . EQ . 1 ) CALL EGAC1SSPL) 

18 IF1IGND.EQ.2) CALL GNDRF(SSPL) 

TSUM=0 . 

DO 19 L = 1 , 29 

19 TSUM = TSUM+10.**! .1*SSPL!D) 

OASPL=10.xaLOG10!TSUM) 

PNL=PERNOY! SSPL ) 

PNLT=PNL+TONE! SSPL ) 

IF! ITOT . EQ . 0 ) RETURN 

IF( IOUT ! 1 ) . EQ . 1 ) WRITE! 6 , 97 ) ( SSP L ! L ) , L = 1 , 29 ) , 0 ASP L , PNL , PNL T 

IFCIOUT(l) . GE . 2 ) WR I T E ! 6 , 98 ) X , Y , TAU , OASP L , PNL , PNL T 

RETURN 

91 FORMAT!//, 20X, ’SPECTRA FOR EACH NOISE S0URCE'/2X, 6H FREQ ,1717/- 

1 8 X , 7 I 7 ) 

92 FORMAT120X, 'NOISE CONTRIBUTIONS FOR EACH NOISE SOURCE') 

93 FORMAT120X, ’ TOTAL NOISE HISTORY AT EACH POINT') 

99 FORMAT ! 57 H SOURCE XO YO TAU OASPL PNL PN- 

1LT) 

95 FORMAT! 10X, 19H SOURCES WHEN XO=,F7.1,9H FT, Y0=,F7.1,11H FT , - 
1 TAU =,F7.1,10H SEC, R =,F7.1,13H FT, THETA =,F6.1,9H DEG) 

96 FORMAT! 10X, 19H SOURCES WHEN XO=,F7.1,8H M, YO = , F7 . 1 , 1 0 H M,- 
1 TAU = , F 7 . 1 , 1 0 H SEC, R =,F7.1,12H M, THETA =,F6.1,9H DEG) 

97 FORMAT ! 8H TO T A L S : , 1 7 F7 . 1/8X , 7 F7 . 1 , 2 IX , 8H OASPL =,F7.1,6H PNL =,- 
1 F7 . 1 , 7H PNL T =, F7 . 1/) 

98 FORMAT ! 9H TOTAL : , 2 F8 . 1 , F8 . 3 , 3 F8 . 1 ) 

99 F0RMAT!2X, ’WARNING: ENGINE PARAMETER INPUTS ARE NOT IN ORDER OF- 
1 ASCENDING EPP’ ) 

END 


Main Program RADIUS 


0000100 c 

0000200 C 
0000300 C 
0000900 C 
0000500 C 
0000600 C 
0000700 C 
0000800 C 
0000900 C 

0001000 c 
0001100 c 

0001200 C 
0001300 
0001900 
0001500 
0001600 
0001700 
0001800 
0001900 
0002000 
0002100 
0002200 
0002300 
0002900 


MAIN PROGRAM FOR CALCULATING NOISE SOURCES AT A CONSTANT RADIUS 
USING NOISE SOURCE PROGRAMS FROM ANOP PREDICTION REPORTS. 

THIS VERSION CALCULATES ALL NOISE QUANTITIES FOR EACH SEPARATELY. 

CALLS SUBROUTINES T ERP , A IR ATT , FAN , J ET , CORE, TURB , SHLD , FLAP , AIRFR , 
BASAT, EGAC, GNDRF, PERNOY ,TONE 

OUTFLOW-- TP, F, UNITS, I SKIP, IOUT, I LG, FDOP , C , TAMB , P AMB , NENG , ISUPP, 
R, THETA, THETAF,THETAH, PHI, PSYI.FLAPI, VI, IJ,KI,ZO,ZI, 

VC, VF,TC,TF,FUEL,WAFAN,RPM,TIPM,TIPM2,DELT,FPR,WC0RE,P3,T3, 
T9,TURTS,TCTUR,F1,F2,F3,F9 

RETURN FLOW: TP , SP L , OASPL , PNL , PNL T , SSPL , A IRATT , P ERNOY , TONE 

DIMENSION FSPL! 29, 20 ),TSP 129,20), TOTPWL ! 29 ) , PWL ! 29 ) , ATM! 29 ) , - 

1 I FREQ! 29 ) , FOASPL 120) , FPNL ! 2 0 ) , FPNLK20 ) , - 

2 SSPL! 29) , AREA! 20) ,ATHETA! 20) , APHI! 10) ,COMENT!20 ) 

DIMENSION A EPP! 10), A VC! 10) , AVF! 1 0 ) , ATC! 1 0 ) ,ATF! 10) ,ATIPMC10),~ 

1 ATIPM2! 10) ,AWAFAN! 10) , ARPM! 1 0 ) , ADELT ! 10),AFPR! 10) , AWCORE ! 1 0 ) , - 

2 AP3! 10),AT3! 10),AT9C10) ,ATURTS! 10), A FUEL! 10), ATCTURC10) 

COMMON/ GEOM/R , THETA, THETAF,THETAH, PHI, VI EW, HEAD, PSYI,FLAPI,EPPI, - 

1 VI,X,Y,TAU,IJ,KI»ZO,ZI 

COMMON/S PECT/ TP ! 29 ), SPL! 29 ),F! 29), OASPL, PNL, PNLT, FI, F2,F3,F9 
COMMON/P ARAM/ VC, VF,TC,TF, FUEL ,WA FAN, RPM , TIPM, T IPM2 , DEL T , FPR , - 
1 WC0RE,P3, T3, T9 ,TURTS,TCTUR 

COMMON UNITS, I SKIP, I0UTC3), IREV , I LG, FDOP , C, TAMB , PAMB , RH , NENG, ISUPP 
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0002500 
0002600 
0002700 C 
0002800 C 
0002900 
0003000 
0003100 
0003200 C 
0003300 
0003900 
0003500 
0003600 C 
0003700 C 
0003800 C 
0003900 C 
0009000 C 
0009100 C 
0009200 C 
0009300 C 
0009900 C 
0009500 C 
0009600 C 
0009700 C 
0009S00 C 
0C09900 C 
0005000 C 
0005100 C 
0005200 C 
0005300 C 
0005900 C 
C005500 C 
C005600 C 
0005700 C 
0005800 C 
0005900 C 
0006000 


DATA SI, ENG/2HSI,3HENG/, AR/. 0179533/ 

NAMELIST/GEOMT/UNITS,R, ATH ETA, APHI, NTH ETA, NPHI, VIEW, HEAD, ZO,ZI 
IF USING GROUND REFLECTION SUBROUTINE (IGND=2), ZO (OBSERVER 
HEIGHT IN M( FT ) ) AND ZI (SOURCE HEIGHT IN M(FT)) ARE REQUIRED. 
NAMEL I ST/AMB/TAMB , PAMB , RH 

NAMELIST/PARAM/NPARAM,AVC,AVF,ATC,ATF,AFUEL,ATIPM, ATIPM2 , AWAFAN , - 
1ARPM, ADELT, AFPR, AWCORE, AP3, AT3,AT9, ATURTS, ATCTUR, AEPP , ICORR , TCORXP 
NOTE: PARAM VARIABLES MUST BE ENTERED IN ORDER OF INCREASING EPP 
NAMELIST/SOURCE/NENG, I TOT, I FAN, I JET, I FLAP, I CORE, ITURB, IAIRF,- 
1 IDOP , IATM, IEGA , IGND, ISUPP, ISHLD, FILBLI 
NAMEL I ST/O PER/ EPP I , VI , PSYI , FLAP I , I LG 
NOTE: in FLAP NOISE NOISE PREDICTIONS - THETAF VALUES AT VARIOUS 
ANGLES OF PHI ARE SET EQUAL TO THE THETA VALUES SPECIFIED FOR 
THE FLYOVER PLANE. ONLY A ROUGH APPROXIMATION OF NOISE POWER 
IS USED - FLAP NOISE IN FLYOVER PLANE IS ASSUMED TO HAVE POLAR 
SYMMETRY AS DO OTHER SOURCES, AND THIS "NOISE POWER" IS PRINTED 
OUT AND ADDED TO THE TOTAL NOISE POWER. 

NENG=NUMBER OF ENGINES 

ISUPP^l/O (Y/N ON SUPPRESSION SPECTRA APPLIED TO EACH SOURCE 
FOR WHICH SUPRESSION SPECTRA ARE SUPPLIED-’ MAY BE 
OVERRIDDEN BY ISUPPR IN INDIVIDUAL SOURCE INPUT) 

ITOT=1/0 (Y/N FOR PRINTING TOTAL OF SPECTRA) 

IDOP=1/0 (Y/N ON DOPPLER FREQ AND INTENSITY CORRECTION); 

IATM=0 = NO CORRECTION FOR ATMOSPHERIC ATTENUATION 

1 = CORRECT TOTAL NOISE FOR ATMOS. ATTEN. BY ARP 866 

2 : CORRECT TOTAL FOR ATMOS. ATTEN. BY BASS 8 SHIELDS 

IEGA=l/0 (Y/N ON EXTRA GROUND ATTEN - ON TOTAL NOISE ONLY) 
ISHLD=l/0 (Y/N FOR SHIELDING OF FAN, JET, CORE 8 TURBINE) 

IGND=0 = NO GROUND REFLECTIONS - FREE FIELD 

1 : FLAT 3 DB GROUND REFLECTION CORRECTION 

2 : CALC GROUND REFLECTION FOR GROUND IMPEDANCE SPECIFIED 
ICORR^l/O (Y/N FOR ENGINE PARAMS TO BE CORR. TO AMBIENT) 

TCORXP = EXPONENT FOR CORE TEMP. CORR. IN ENGINE PARAMETERS 
FILBW = FRACTION OF FILTER BANDWIDTH WITH GAIN=1 

THIS DATA INPUT IS FOR DEFAULT VALUES 

DATA I FAN, I JET, I FLAP, I CORE, ITURB, I AIRF, IATM, I EG A , I GND , I CORR , - 


0006100 
0006200 
0006300 
0006900 
0006500 
0006600 
0006700 
0006800 
0006900 
0007000 C 
0007100 C 
0 C 0 7 2 0 0 
0007300 
0007900 
0007500 
0007600 
0007700 
C 0 0 7 8 0 0 
CC07900 
0008000 
0003100 
0008200 
0008300 C 
0003900 
0003500 
0008600 
0003700 
0003800 
0003900 
0009000 C 
0009100 
0009200 
C 0 0 9 3 0 0 


1 ISHLD, FILBW/ 11^0 , 1 . / 

DATA NTHETA, ATH ETA/ 19,0. ,10. ,20. ,30. ,90. ,50. ,60. ,70. ,80. ,90.,- 
1 100. ,110. ,120. ,130. ,190. ,150. ,160. ,170. ,180. ,190./ 

DATA NPHI,APHI/3,0.,95.,90.,7*0./ 

UNITS=ENG 
GAMMA F = 1 . 9 
R = -l . 

T A M B = - 1 . 

P A M B = - 1 . 

THESE NEG. VALUES TO DETECT IF DATA READ IN. FINAL DEFAULTS 
GIVEN AT STATEMENT 9. 

RH = 7 0 . 

NENG=1 
ISUPP=0 
I DOP = 0 
FDOP=l . 

KI = 1 
I S K I P = 0 
I O U T ( 1 ) =9 
I T O T = 1 
FU EL = 0 . 

T CO RXP = 1 . 

1 READ(5,96) ( COMENT ( I ) , I = 1 , 20 ) 

READ( 5 , GEOMT ) 

READC 5 , AMB ) 

R EAD ( 5 , SOURCE) 

READ(5, PARAM) 

I F ( A EPP ( 1 ) .GT.AEPP(NPARAM)) WRIT E( 6, 95) 

2 IF(UNITS.EQ.ENG) GO TO 9 
TAMB=TAMB*1 . 8 

PAMB =P AMBX . 02089 
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0009400 
0009500 
0009600 
0009700 
0009SOO 
0009900 
0010000 
0010100 
0010200 
0010300 
0010400 
0010500 
0010600 
0010700 
0010800 
0010900 
0011000 
0011100 
0011200 
0011300 
0011400 
0011500 C 
0011600 
0011700 
0011800 
0011900 
0012000 
0012100 
0012200 
0012300 
0012400 
0012500 
0012600 C 
0012700 
0012800 
0012900 
0013000 
0013100 
0013200 C 
0013300 
0013400 
0013500 
0013600 
0013700 
0013800 
0013900 
0014000 
0014100 
0014200 C 
0 0 1430 0 
0014400 
0014500 
0014600 
0 0 14700 
0014800 
0014900 
0015000 
0015100 
0015200 C 
0015300 
0015400 
0015500 
0015600 
0 0 15700 
0015800 
0015900 
0016000 
0016100 
0016200 


R = R*3 . 28 

Z0=Z0*3.28 

ZI=ZI*3.28 

DO 3 1=1, NPARAM 

AVCCI)=AVCCI)>3.28 

AVFCI)=AVFCI)#3.28 

ATCCI)=ATCCI)*1.8 

ATFCI)=ATFCI)*1 .8 

A FUEL (I )=AFUELC I )*2.205 

AWAFAN C I ) =AWAFANC I )*2. 205 

ADEL TCI ) =ADELTC I )*1 . 8 

AWCORE ( I ) =AUCOREC I )#2 .20 5 

AP3( I )=AP3C I)* . 02089 

AT3CI)=AT3CI)*1 .8 

AT4(I)=AT4CI)*1.8 

ATCTURC I)=ATCTURCI)*1 .8 

3 ATURTSCI)=ATURTSCI)*3.28 

4 IFCR.LT.O. ) R-100 . 

RM = R/3 . 28 

IFCTAMB.LT.O. ) TAMB=518.7 
IFCPAMB.LT.O.) PAMB=2116. 

I OUT C 1 ) =4 

C = 4 1 . 4 47 *SQRTC GAMMA FXTAMB) 

DO 5 L = 1 > 24 

FCL)=10.**C.1*FLOATCL+16)) 

ATMCL)=AIRATTCTAMB,RH,FCL)) 

5 IFREQCL)=FCL) 

FI = . 78250188+. 10874906*FILBW 
F2 = 1 . - . 10874906XFILBW 
F3 = l . + . 12201S45*FILBW 
F4 =1.2440369-. 1220184 5* FILBW 

DO 6 I =1 , NTHETA 

ANGF=. 008727* <ATHETA< I )+ATHETA(I+l)) 

IFCI.EQ. NTHETA) ANGF=3.1416 

AREAC I ) =6 . 2832XR**2*CC0SCANGIN)-C0SCANGF) ) 

6 ANGIN=ANGF 

7 ANGIN=0 . 

TOTPW=0 . 

V5TORE=VI 
DO 8 L=1 ,24 
TPC L ) =1 . E-50 
PWL ( L ) =0 . 

TOTPWL ( L ) =0 . 

DO 8 1=1,20 

8 TSP ( L , I ) = 0 . 

READ( 5 , OPER ) 

IFC UNITS . EQ. SI . AND. VI .NE. VSTORE) VI=VI*3.28 

TTOT=TANB + VI*V 1/12025 . 1 

PT0T=PAMB»CTT0T/TAMB)**3.5 

TCORR = TTOT/518 . 7 

TC0RR1=SQRT (TCORR) 

TC0RR2=TC0RR**TC0RXP 
PC0RR = PT0T/2116 . 

WCORR=PCORR/TCORRl 

PHI=APHIC1) 

TPW = 0 . 

VIM=VI/3 . 28 

10 I F ( I FAN . EQ . 0) GO TO 20 

CALL TERPCATIPM, EPPI, l.,l., AEPP, l.,l.,NPAR AM, 1 
CALL TERP( AWAFAN, EPP I , 1 . , 1 . , A EPP , 1 . , 1 . , NPAR AM , 
CALL TERPC ARPM, EPP I , 1 . , 1 . , A EPP , 1 . , 1 . , NP ARAM , 1 , 
CALL TERPC ADEL T , EPPI , 1 . , 1 . , AEPP , 1 . , 1 . , NPARAM, 1 
CALL TERPC AFPR, EPPI ,1 . , 1 . , AEPP, 1. , 1 . , NPARAM, 1 , 
CALL TERPC ATI PM2, EPPI , 1 . , 1 . , A EPP , 1 . , 1 . , NP AR AM , 


1,TIPM) 

, 1 , WAFAN ) 
, RPM) 

1 , DELT) 

, FPR ) 

, 1 , TIPM2 ) 


0016300 

0016400 

0016500 

0016600 

0016700 

0016S00 

0016900 

0017000 

0017100 

0017200 

0017300 

0017400 

0017500 

0017600 

0017700 

0017800 

0017900 

0018000 


IF( ICORR . EQ . 0 ) GO TO 11 
WAFAN=WAFANXWCORR 
RPM=RPM*TC0RR1 
DELT=DELT*TCORR 

11 WRITEC 6,97) ( COMENT C I ) , I =1 , 20 ) 
WRITE(6,106) EPPI 
WRITE(6,107) 

IFCUNITS . EQ. ENG) WRITE(6,99) NENG, R , PHI 
IFC UNITS . EQ . SI ) WRI T EC 6 > 98 ) NENG, RM, PHI 
DO 13 1=1, NTHETA 
IJ = I 

THETA=ATHETA(I) 

IFC IDOP . EQk. 1 ) FD0P=1.-VIXC0S(THETAXAR)/C 
CALL FAN 
DO 12 L=1 , 24 
FSPL ( L , I ) =5PL ( L ) 

PW=TP(L )#AREA(I) 

TPW=TPW+PW 


0018100 
0018200 
0018300 
0018400 
0018500 
0018600 
0018700 
0018800 
0018900 
0019000 
0019100 
0019200 
0019300 
0019400 
0019500 
0019600 
0019700 C 
0019800 
0019900 
0020000 
0020100 
0020200 
0020300 
0020400 
0020500 
0020600 
0020700 
0020800 
0020900 
0021000 
0021100 
0021200 
0021300 
0021400 
0021500 
0021600 
0021700 
0021800 
0021900 
0022000 
0022100 
0022200 
0022300 
0022400 
0022500 
0022600 
0022700 
0022800 
0022900 
0023000 
0023100 


PWL(L)=PWL(L)+PW 

TSP(L,I)=TSP(L,I)+TP(L) 

12 TP ( L ) =1 . E-50 
FOASPL(I)=OASPL 
FPNL ( I ) =PNL 

13 FPNLT C I ) =PNLT 

WRITEC 6, 101) (ATHETA <I), 1=1, NTHETA) 

TPW=10.XALOG10(TPW) 

DO 14 L = 1 > 24 

PW=10 . XALOG10CPWL (L ) ) 

WRITEC 6, 102) IFREQCL), (FSPL CL, I), 1=1, NTHETA ),PW 
TOTPWL(L)=TOTPWL(L)+PWL(L) 

14 PWL ( L ) =0 . 

WRITEC6 ,103) ( FOASPL ( I ), 1=1, NTHETA ),TPW 
WRITEC 6, 104) (FPNL Cl), 1=1, NTHETA) 

WRI TEC 6, 105) C FPNLT Cl), 1 = 1, NTHETA) 

20 IFCIJET. EQ. 0) GO TO 30 

CALL TERPCAVC,EPPI,1. ,1. ,AEPP,1. ,1. , NPARAM, 1 , 1 , VC) 

CALL TERPC AVF, EPPI, 1. , 1 . , A EPP , 1 1 ., NPARAM, 1 , 1 , VF) 

CALL TERPCATC, EPPI,1 . , 1 . , AEPP , 1 . , 1 . , NPARAM , 1 , 1 , TC ) 

CALL TERPC ATF.EPPI, 1 . , 1 . ,AEPP,1 . , 1 . , NPARAM , 1 , 1 , TF ) 

CALL TERPC A FUEL, EPP I, 1 . , 1 . , AEPP , 1 . , 1 . , NPARAM, 1 , 1,FUEL) 

CALL TERPCAWCORE, EPPI , 1 . ,1. ,AEPP,1. , 1 ., NPARAM , 1 , 1 , WCORE) 

IFC ICORR . EQ . 0 ) GO TO 21 

VC=VC*TC0RR1 

VF=VF*TC0RR1 

TC = TC*T C0RR2 

TF=TF*TCORR 

fuel=fuel*pcorr*tcorri 

WCORE=WCOREXWCORR 

21 TPW=0 . 

WRITEC6 , 97 ) ( COMENT ( I ) , I =1 , 2 0 ) 

WRITE(6,106) EPPI 
WRITEC6.108) 

IFCUNITS . EQ. ENG) WRITE(6,99) NENG, R, PHI 
IFCUNITS.EQ.SI) WRI TE ( 6 , 98 ) NENG, RM, PHI 
DO 23 1=1, NTHETA 
IJ = I 

THETA=ATHETA( I ) 

IFC IDOP. EQ. 1) FD0P = 1 . -VIXCOS ( THETAXAR )/C 
CALL JET 
DO 22 L = 1 , 24 
FSPL ( L , I ) =SPL ( L ) 

PW=TPCL)XAREACI) 

TPW=TPW+PW 

PWLCL)=PWL(L)+PW 

TSP(L,I)=TSP(L,I)+TP(L) 

22 TP C L ) = 1 . E-5 0 
FOASPLCI)=OASPL 
FPNL Cl) =PNL 
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0023200 


23 

FPNLT ( I ) =PNLT 

0023300 



WRITEC 6 , 101 ) (ATHETA(I),I=1,NTHETA) 

0023400 



TPW=10.*ALOG10(TPW) 

0023500 



DO 24 L = 1 » 24 

0023600 



PW=1 0 . XAL0G10 ( PWL ( L ) ) 

0023700 



WRITEC 6, 102) IFREQCL) , ( FSPLCL , I ), 1=1 , NTHETA) , PW 

0023800 



TOTPWL(L)=TOTPWL(L)+PWL(L) 

0023900 


24 

PWL ( L ) =0 . 

0024000 



WRITEC6 ,103) ( FOASP L ( I ) , I =1 , NTH ET A ) , TPW 

0024100 



WRITEC6 ,104) (FPNLCI), 1=1, NTHETA) 

0024200 

0024300 

c 


WRITEC 6, 105) (FPNLTCI) , I=1,NTHETA) 

0024400 


30 

IFCICORE.EQ.O) GO TO 40 

0024500 



IF(IJET.EQ.O) CALL TERP ( AWCORE , EPPI , 1 . , 1 . , AEPP, 1 . , 

0024600 



1 WCORE) 

0024700 



CALL TERP (AP3»EPPI»1. ,1. , AEPP , 1 . , 1 . , NP ARAM, 1 , 1 , P3 ) 

0024800 



CALL TERP (AT 3, EPPI ,1.,1.,AEPP,1. , 1 . , NPARAM, 1 , 1 , T3 ) 

0024900 



CALL TERP(AT4,EPPI,1. ,1. ,AEPP,1. ,1. , NPARAM , 1 , 1 , T4 ) 

0025000 



IFCIJET.EQ.O) CALL TERP( AFUEL , EPPI , 1 1 AEPP, 1 1 

0025100 



1 FUEL) 

0025200 



IF(ICORR.EQ.O) GO TO 31 

0025300 



IF(IJET.EQ.O) WCORE=WCORE»WCORR 

0025400 



P3=P3XPC0RR 

0025500 



T3=T3«TCORR 

0025600 



T4=T4XTC0RR2 

0025700 



IFCIJET.EQ.O) FUEL=FUEL*PCORR*TCORRl 

0025800 


31 

TPW-0 . 

0025900 



WRITEC6 , 97 ) ( COMENT ( I ) , I =1 , 2 0 ) 

0026000 



WRIT E(6,106) EPPI 

0026100 



WRITEC6 , 109) 

0026200 



IFCUNITS. EQ . ENG) WRITE(6,99) NENG, R» PHI 

0026300 



IFCUNITS.EQ.SI) WRITE(6,98) NENG, RM, PHI 

0026400 



DO 33 1=1 , NTHETA 

0026500 



IJ = I 

0026600 



THETA=ATHETA(I) 

0026700 



IFCIDOP. EQ. 1) FDOP=l .-VIXCOS(THETAXAR)/C 

0026800 



CALL CORE 

0026900 



DO 32 L =1 , 24 

0027000 



FSPL(L,I)=SPL(L) 

0027100 



PW=TP(L)XAREA(I) 

0027200 



TPW=TPU+PW 

0027300 



PWL(L)=PWL(L)+PW 

0027400 



TSP(L,I)=T5P(L,I)+TP(L) 

0027500 


32 

TP(L)=1 . E-50 

0027600 



F0A5PL(I)=0ASPL 

0027700 



FPNL ( I ) =PNL 

0027800 


33 

FPNLT ( I ) =PNLT 

0027900 



WRITEC 6,101) (ATHETAC I), 1 = 1, NTHETA) 

0028000 



TPW=10.*ALOG10(TPW) 

0028100 



DO 34 L=1 ,24 

0028200 



PW=10.XALOG10( PWL ( L ) ) 

0028300 



WRITE(6,102) IFREQ(L) , ( FSPL ( L , I ), 1=1 , NTHETA ), PW 

0028400 



TOTPWL(L)=TOTPWL(L)+PWL(L) 

0028500 


34 

PWL ( L ) =0 . 

0028600 



WRITEC 6, 103) CFOASPLC I), 1=1, NTHETA), TPW 

0028700 



WRITEC 6, 104) (FPNLCI) ,1=1, NTHETA) 

0028800 

0028900 

c 


WRITEC 6, 105) C FPNLT (I), 1=1, NTHETA) 

0029000 


40 

IFCITURB.EQ.O) GO TO 50 

0029100 



IFCIJET.EQ.O) CALL T ERPCATC , EPPI , 1 ., 1 ., AEPP , 1 ., 1 . , 

0029200 



I F( I FAN . EQ . 0 ) CALL TERP ( ARPM , EPPI , 1 ., 1 ., AEPP , 1 ., 1 . 

0029300 



IFCIJET.EQ.O. AND. ICORE.EQ.O) CALL TERPC AWCORE, EPPI 

0029400 



1 1. , NPARAM, 1,1, WCORE) 

0029500 



IFCIJET.EQ.O. AND. ICORE.EQ.O) CALL TERPC AFUEL , EPPI , 

0029600 



1 1. , NPARAM, 1,1, FUEL) 

0029700 



CALL TERP(ATURTS,EPPI,1. ,1. , AEPP , 1 . ,1. , NPARAM, 1,1, 

0029800 



CALL TERP(ATCTUR,EPPI,1 . , 1 . , AEPP , 1 . , 1 ., NPARAM, 1 , 1 , 

0029900 



IFCTCTUR.LT. 1. ) CALL TERP ( ATC, EPPI , 1 ., 1 ., AEPP , 1 ., 1 

0030000 



1 TCTUR) 


1. .NPARAM, 1,1,- 


. , NPARAM, 1,1,- 


NPARAM, 1(1,TC) 

, NPARAM, 1,1,RPM) 
,1. ,1. ,AEPP,1. ,- 

1. ,1. ,AEPP,1. ,- 

TURTS) 

TCTUR) 

. .NPARAM, 1,1,- 
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0030100 

0030200 

0030300 

0 0 j C ‘t 0 0 

0030500 

0030600 

0030700 

0030300 

0030900 

0031000 

0031100 

0031200 

0031300 

0031400 

0031500 

0031600 

0031700 

0031S00 

0031900 

0032000 

0032100 

0032200 

0032300 

0032400 

0032500 

0032600 

0032700 

0032S00 

0032900 

0033000 

0033100 

0033200 

0033300 

0033400 

0033500 

0033600 

C 0 3 3 7 0 0 

0033800 C 

0033900 

0034000 C 

0034100 

0034200 

0034300 

0034400 

0034500 

0034600 

0034700 

0034800 

0034900 

0035000 

0 0351 0 0 

0035200 

0035300 

0035400 

0035500 

0035600 

0035700 

0035800 

0035900 

0 036 00 0 


IFCICORR.EQ.O) GO TO 41 

TCTUR=TCTUR*TC0RR2 

I F ( I FAN . EQ . 0 ) RPM=RPM*TC0RR1 

IF( I JET. EQ. 0 . AND. I CORE. EQ.O) WCORE=WCOR EXWCORR 
IFCIJET.EQ.O.AND.ICORE.EQ.O) FUEL=FUEL*PCORR*TCORRl 
TURTS=TURTS*TC0RR1 

41 TPW=0. 

WRITEC6.97) CCOMENT(I),I=1,20) 

WRITEC 6 , 106 ) EPPI 
WRITEC6,110) 

IF(UNITS.EQ.ENG) WRITE(6,99) NENG, R , PHI 
IF(UNITS.EQ.SI) WRITEC 6,98) NENG, RM, PHI 
DO 43 1=1 , NTHETA 
IJ = I 

THETA=ATHETAC I ) 

IFCIDOP.EQ.l) FDOP=l .-VI*COSCTHETA*AR)/C 
CALL TURB 
DO 42 L =1 , 24 
FSPLCL,I)=SPLCL) 

PW = TP C L ) *AREA C I ) 

TPW=TPW+PW 

PWLCL)=PWLCL)+PW 

TSPCL,I)=TSPCL,I)+TPCL) 

42 TPCL )=1 . E-50 
FOASPL(I)=OASPL 
FPNLCI)=PNL 

43 FPNL TC I ) =PNLT 

WRITEC 6 , 101) (ATHETA(I), 1=1, NTHETA) 

TPW=10 . *ALOG10CTPW) 

DO 44 L = 1 ,24 
PW=10.XALOG10(PWL(L)) 

WRITEC 6, 102) IFREQC L ) , C FSPLC L , I ) , 1=1 , NTHETA) , PW 
TOTPWLCL)=TOTPWLCL)+PWLCL) 

44 PWL C L ) =0 . 

WRITEC 6, 103) CFOASPLCI), 1=1, NTHETA), TPW 
WRITEC 6, 104) C FPNL Cl), 1 = 1, NTH ETA) 

WR I TEC6,105) CFPNLTCI), 1=1, NTHETA) 

50 IFCISHLD.NE.l) GO TO 60 

ASSUMES NO SHIELDING EFFECT ON TOTAL ACOUSTIC POWER 
DO 57 J = 1 , NPHI 
PHI=APHICJ) 

COSPHI=COSCPHI*AR) 

SINPHI=SINCPHI«AR) 

WRITEC6,97) C COMENT C I ) , I =1 , 20 ) 

WRITEC6,106) EPPI 

IFCUNITS.EQ.ENG) WRITEC6,99) NENG, R, PHI 
IFCUNITS.EQ.SI) WRITEC6,98) NENG, RM, PHI 
WRITEC 6 , 117 ) 

DO 55 1=1, NTHETA 

IJ=I*J 

ADD=0 . 

THETA=ATHETAC I ) 

IFC ABSCTHETA-90 . ) . LT. 1 . E-10) GO TO 51 
IFCTHETA.GT.90. ) ADD = 180. 

TANTH=TANCTHETA*AR) 

THETAF=ATANCCOSPHI^TANTH)/AR + ADD 
THETAH=ATANCSINPHIXTANTH)/AR + ADD 
GO TO 52 

51 THETAF=90 . 


0036100 

0036200 

0036300 

0036400 

0036500 

0036600 

0036700 

0036800 

0036900 


THETAH = 90 . 

52 DO 53 L =1 , 24 

53 TPCL)=TSPCL,I) 

CALL SHLD 

DO 54 L = 1 , 24 
FSPL C L , I ) =SPL ( L ) 
IFCJ.EQ.l) TSP C L , I ) =TP C L ) 

54 TP( L )=1 . E-50 
FOASPLCI)=OASPL 
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0037000 

0037100 

0037200 

0037300 

0037400 

0037500 

0037600 

0037700 

0037800 

0037900 C 

0038000 

003S100 

0038200 

0038300 

0038400 

0038500 

003S600 

0038700 

0038300 

0038900 

0039000 

0039100 

0039200 

0039300 

0039400 

0C39500 

0039600 

0039700 

0039300 

0039900 

0 040 0 00 

0C40100 

0040200 

0040300 

0 0 4 0 4 C 0 

0040500 

0040600 

0040700 

0040800 

0040900 

0041000 

0 04 1 1 00 

0041200 

0041300 

C 0 4 1 4 0 0 

0041500 

0 04 1 6 0 0 

0041700 

0041800 

0041900 

0 0420 0 0 


FPNL ( I )=PNL 

55 FPNLT ( I ) = PNLT 

WRITE (6, 101) (ATHETACI) ,I=1,NTHETA) 

DO 56 L=l,24 

56 WRITE(6,102) I FR EQ ( L ) , ( FS P L ( L , I ) , I =1 , NTH ET A ) 

WRITEC6, 118) 

WRITEC6 , 103) C FOASPLCI ) , 1=1 , NTHETA) 

WRITE(6,104) C FPNLCI), 1=1, NTHETA) 

57 WRITEC6.105) ( FPNL T ( I ) , I = 1 , NTHETA ) 

60 IF(IFLAP.EQ.O) GO TO 70 
IFC I JET . EQ . 1 ) GO TO 61 

CALL TERPC A VC, EPPI, 1 . ,1 ., AEPP , 1 ., 1 ., NPARAM , 1 , 1 , VC) 

CALL TERPC A VF, EPPI , l.,l.,AEPP,l.,l., NPARAM, 1 , 1 , VF) 

IFC ITURB . EQ . 0 ) CALL TERP C ATC , EPP I , 1 . , 1 . , AEPP, 1 . ,1 . , NPARAM, 1 , 1 , TC) 

IFC ICORR . EQ . 0 ) GO TO 61 

IFC ITURB . EQ . 0 ) TC=TC*TC0RR2 

VC=VC*TCORRl 

VF=VF*TCORRl 

61 DO 68 J = 1 , NPHI 
PHI=APHIC J) 

COSPHI=COSCPHI*AR) 

TPW = 0 . 

WR I T E C 6 , 97 ) C COMENT C I ) , I = 1 , 2 0 ) 

WRITEC6,106) EPPI 
WRITEC6, 111) 

IFC UNITS . EQ . ENG) WRITEC6,99) NENG , R , PHI 
IFCUNITS.EQ.SI) WRITEC6,98) NENG, RM, PHI 
DO 65 1=1, NTHETA 
I J = I * J 
A DD = 0 . 

THETA = ATHETAC I ) 

IFC ABSCTHETA-90 . ) . LT. 1 . E-10) GO TO 62 
IFC THETA . GT . 90 . ) ADD=180. 

TANTH=TANCTHETA*AR) 

THETAF=ATANCCOSPHI*TANTH)/AR + ADD 
GO TO 63 

62 THETAF=90 . 

63 IFCIDOP. EQ. 1) FDOP=l . -VI*COSCTHETA*AR)/C 
CALL FLAP 

DO 64 L = 1 , 24 
FSPL C L , I ) =SrL C L ) 

IFCJ.GT.l) GO TO 64 
PW = TPC L )*AREAC I ) 

TPW=TPU+PW 

PWLCL)=PWLCL)+PW 

TSPC L , I ) = T SP C L , I ) + TP C L ) 

64 TPC L ) =1 . E-50 
FOASPL C I ) = O A S P L 
FPNL C I ) = PN L 

65 FPNLTC I ) =PNLT 


0042100 

0042200 

0042300 

0042400 

0042500 

0042600 

0042700 

0 0 4280 0 

0042900 

0043000 

0043100 

0043200 

0 0 4 3 3 0 0 

0043400 C 

0 0 4 5 5 0 0 

0043600 

0043700 

0043800 


WRITEC6,101) CATHETACI) ,1=1, NTHETA) 

IFCJ.EQ.l) TPW=10 . *ALOG10CTPW) 

DO 67 L =1 ,24 
IFCJ.GT.l) GO TO 66 
PW=10.*ALOG10CPWLCL)) 

WRIT EC 6 , 102) IFREQC L ) , C FSPL ( L , I ), I = 1 , NTHETA ), PW 
TOTPWLCL )=TOTPWLCL )+PWL(L) 

GO TO 67 

66 WRITEC6,102) I FR EQ C L ) , ( FSP L C L , I ) , I = 1 , NT H ET A ) 

67 PWL C L ) = 0 . 

WRITEC6 , 103) C FOASPLCI), 1 = 1 , NTH ET A), TPW 
WRITEC6,104) C FPNLCI) ,1=1, NTHETA) 

68 WRITEC 6,105) C FPNLT C I ) , I = 1 , NTH ET A ) 

70 IFC IAIRF. EQ . 0 ) GO TO 80 
DO 75 J = 1 , NPHI 
PHI =APHI ( J ) 

T P W = 0 . 
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0043900 

0044000 

0044100 

0044200 

0044300 

0044400 

0044500 

0044600 

0044700 

0044800 

0044900 

0045000 

0045100 

0045200 

0045300 

0045400 

0045500 

0045600 

0045700 

0045800 

0045900 

0046000 

0046100 

0046200 

0046300 

0046400 

0046500 

0046600 

0046700 

0046800 

0046900 

0047000 

0047100 

0047200 

0047300 

0047400 C 

0047500 

0047600 

0047700 

0047800 

0047900 

0048000 

0048100 

0048200 

0048300 

0048400 

0048500 

0048600 

0048700 

0048800 

0048900 

0049000 

0049100 

0049200 

0049300 

0049400 

0049500 

0049600 

0049700 

0049800 

0049900 

0050000 

0050100 

0050200 

0050300 

0050400 

0050500 

0050600 

0050700 


WRITEC 6,97) ( COMENT C I ) , I =1 , 2 0 ) 

IFCUNITS.EQ.ENG) WRITEC6.115) VI 
I F( UNITS . EQ . SI ) WRITEC 6 , 1 16 ) VIM 
WRITEC 6,112) 

IFCUNITS.EQ.ENG) WRITEC6,99) NENG, R, PHI 
IF( UNITS. EQ. SI) WRITE (6,98) NENG, RM> PHI 
DO 72 1=1 ,NTHETA 
IJ=I*J 

THETAF=ATHETA(I) 

IFCIDOP . EQ. 1) FDOP=l .-VI*COS (THETA*AR)/C 
CALL AIRFR 
DO 71 L=l,24 
FSPL C L * I ) =SPL ( L ) 

IFCJ.GT.l) GO TO 71 
PW=TPCL)*AREACI) 

TPW=TPW+PW 

PWL(L)=PWL(L)+PW 

TSPCL,I)=TSPCL,I)+TPCL) 

71 TP ( L ) =1 . E-50 
FOASPLCI)=OASPL 
FPNL Cl) =PNL 

72 FPNLT Cl) =PNLT 

WRITEC 6, 101) (ATHETACI) ,1=1, NTHETA) 

IFCJ.EQ.l) TPW=10.*ALOG10CTPW) 

DO 74 L =1 , 24 
IFCJ.GT.l) GO TO 73 
PW=10.*ALOG10CPWLCL)) 

WRITEC 6, 102) IFREQCL), C FSPL C L , I ), 1=1 , NTHETA ), PW 
TOTPWLCL)=TOTPWLCL)+PWLCL) 

GO TO 74 

73 WRITEC6,102) I FREQ C L ) , C FSPL C L , I ) , I = 1 , NTHETA ) 

74 PWL C L ) =0 . 

WRIT EC 6, 103) CFOASPLCI) ,1 = 1, NTHETA ),TPW 
WRIT EC 6, 104) C FPNL Cl), 1 = 1, NTHETA) 

75 WRITEC 6,105) C FPNLT C I ), I = 1 , NTHETA ) 

80 KI =0 

IFCITOT. EQ. 0) GO TO 7 

WRITEC 6,97) C COMENT C I ) , 1 = 1 , 20 ) 

WRITEC6,1G6) EPPI 
WRITEC6 , 113) 

PHI =APHI Cl) 

IFCUNIT5 . EQ . ENG) WRITEC6,99) NENG, R, PHI 
IFCUNITS . EQ . SI ) WRITEC6,98) NENG, RM, PHI 

WRITE C 6 , 1 1 4 ) I FAN, I JET, I FLAP, I CORE, ITURB , I AIRF, IREVR , I ATM , IGND, - 
1 IEGA, IDOP, ISHLD, ICORR 
WRITEC6,101) C ATHETACI), 1=1, NTHETA) 

DO 83 1=1, NTHETA 
DO 81 L=1 , 24 

SSPLCL)=10.XALOG10CTSPCL,I)) 

IFCIATM. EQ. 1 ) SSPLCL)=SSPLCL)-ATMCL)XR/1000. 

IFC IGND. EQ . 1) SSPLCL)=SSPLCL)+3.01 

81 CONTINUE 

IFCIATM. EQ. 2) CALL B ASAT C R , TAMB , PAMB , RH , SSPL ) 

IFC I EGA . EQ . 1 ) CALL EGACCSSPL) 

IJ = I 

IFCIGND.EQ.2) CALL GNDRFC SSPL ) 

TSUM=0 . 

DO 82 L = 1 , 24 

TSUM=TSUM+10.x*CSSPLCL)/10. > 

82 FSPLCL,I)=SSPLCL) 

FPNLCI)=PERNOYCSSPL) 

FPNLTCI)=FPNLCI)+TONEC5SPL) 

FOASPLCI)=10 .XALOGIOCTSUM) 

83 CONTINUE 

DO 84 L = 1 , 24 

PW=10 . XALOGIOCTOTPWLCL) ) 

TOTPW=TOTPU+TOTPWLCL) 

84 WRITEC6 , 102) I FREQ C L ) , C FSPL C L , I ) , I =1 , NTHETA ) , PW 
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0050800 TOTPW=10 . KALOGIO(TOTPW) 

0050900 WRITE(6,1G3) ( FOASPL ( I ) , I =1 , NTHETA ) , TOTPW 

0051000 WRITE(6,104) ( FPNL C I ) , I =1 , NTHETA ) 

0051100 WRITEC 6,105) C FPNLT ( I ) , I = 1 , NTHETA ) 

0051200 GO TO 7 

0051300 C 

0051400 95 F0RMAT(2X, 'WARNING: ENGINE PARAMETER INPUTS ARE NOT IN ORDER OF- 

0051500 1 ASCENDING EPP') 

0051600 96 FORMAT (8X,20A4) 

0051700 97 FORMAT ( 1H1 ,20X,20A4) 

0051800 98 FORMAT ( 15X, 12 , ' ENGINE(S) AT A CONSTANT RADIUS 0F’,F6.1,' METERS, - 

0051900 1 IN THE PLANE OF PHI = • , F5 . 1 , ' DEGREES'//) 

0052000 99 FORMAT ( 15X , 12 , ' ENGINE! S) AT A CONSTANT RADIUS 0F',F6.1,» FEET,- 

0052100 1 IN THE PLANE OF PHI =',F5.1,' DEGREES'//) 

0052200 101 FORMAT ( /3 OX , ' POLAR ANGLE, THETA, DEGREES *, 6 OX, ’ POWER LEVEL'/1X,- 

0052300 1 4HFREQ, 1X,20F6 . 1 ) 

0052400 102 F0RMAT(1X,I4,21F6.1) 

0052500 103 FORMAT (/1X,4H0SPL,21F6 . 1) 

0052600 104 FORMAT (/IX, 3HPNL , IX, 20F6 . 1 ) 

0052700 105 FORMAT(/1X,4HPNLT,20F6 . 1) 

0052800 106 FORMATC/35X, ' ENGINE PERFORMANCE PARAMETER =»,F8.2) 

0052900 107 FORMAT (//40X, 'FAN NOISE SPECTRA') 

0053000 108 FORMAT ( //4 OX , 'JET NOISE SPECTRA') 

0053100 109 FORMATC//40X, 'CORE NOISE SPECTRA') 

0053200 110 FORMATC//40X, 'TURBINE NOISE SPECTRA') 

0053300 111 FORMAT(//40X, ' FLAP NOISE SPECTRA') 

0053400 112 FORMAT(//40X, 'AIRFRAME NOISE SPECTRA') 

0053500 113 FORMAT(//30X, 'NOISE SPECTRA OF TOTAL OF ALL SOURCES') 

0053600 114 FORMATC IX, 'SOURCES AND EFFECTS INCLUDED ARE DESIGNATED BY CODE- 

0053700 1 > OR =1. ’/IX, 'SOURCES: IRAN =',I1,8H, IJET =,I1,9H, I FLAP =,- 

0053800 2 II, 9H, ICORE =,I1,9H, ITURB =,I1,9H, IAIRF =,I1,9H, IREVR =,- 

0053900 3 I1/1X, 'PROPAGATION EFFECTS: I ATM =',I1,8H, IGND =,I1,- 

0054000 4 8H , I EGA =,I1,8H, IDOP =,I1,9H, ISHLD =,I1,9H, ICORR =,I1) 

0054100 115 F0RMAT(/35X, 'AIRCRAFT VELOCITY =',F8.2,4H FPS) 

0054200 116 F0RMAT(/35X, 'AIRCRAFT VELOCITY =',F8.2,4H M/S) 

0054300 117 F0RMATC//25X, 'SHIELDING FACTORS APPLIED TO THE PREVIOUS SOURCES') 

0054400 118 FORMATC/' THE FOLLOWING ARE LEVELS AFTER ABOVE SHIELDING') 

0054500 END 


Subroutine FAN 


0000100 C 
0000200 C 
0000300 C 
0000400 C 
0000500 C 
0000600 C 
0000700 C 
0000800 C 
0000900 C 

0001000 c 
0001100 C 
0001200 C 
0001300 C 
0001400 
0001500 
0001600 
0001700 
0001800 
0001900 
0002000 
0002100 
0002200 
0002300 
0002400 
0002500 
0002600 
0002700 C 


SUBROUTINE TO CALCULATE INLET AND EXHAUST FAN NOISE 
(OR COMPRESSOR INLET NOISE) 

BY HEIDMANN ANOP PREDICTION PROCEDURE (NASA TMX-71763) 

CALLED BY NOIS OR RADIUS 

CALLS SUBROUTINES TERP, PERNOY, TONE 

INFLOW: TP,F,UNITS,I0UT,FD0P,C,TAMB,NENG,ISUPP,F1,F2,F3,F4 

R, THETA, X,Y,TAU,IJ,KI, WA FAN , RPM, TIPM, TIPM2 , DELT , FPR 
RETURNS: TP , SPL , OASPL , PNL , PNLT 

REQUIRES PARAM INPUT OF AWAFAN , ARPM, ADELT OR AFPR , 

OPTIONAL ATIPM, ATIPM2C2ND STAGE) 

SUBROUTINE FAN 

DIMENSION FIG7AC11),THET7A(11),FIG7BC14),THET7BC14),FIG13A(10),- 

1 THT13AC10) ,FIG13B(14) ,FIG16(12) , THT16 ( 12) , Cl (3) , - 

2 C2(3),C3(3),C4(3),DCP(24),DP(24),DPX(24), AWREFC 26) ,ATR(26) 
DIMENSION SUPPIN(24) .SUPPEXC24) ,SUPINC24) , SUP EX (24) 

COMMON/GEOM/R, THETA, THETAF,THETAH, PHI, VIEW, HEAD, PSY I, FLAPI,EP PI, - 

1 VI,X,Y,TAU,IJ»KI 

COMMON/ SPECT/ TP ( 24), SPL(24),F(24), OASPL, PNL, PNLT, FI, F2,F3,F4 
COMMON/P ARAM/ VC, VF, TC, TF, FUEL, WAFAN, RPM, TIPM, TIPM2, DELT, FPR 
COMMON UNITS, ISKIP,I0UT(3),IREV,ILG,FD0P,C,T AMB,PAMB,RH,N ENG, ISUPP 
NAMELIST/FANDA/JOUT, IGV, IFD, I EXH , NH , NSTG , NBL , NV AN , FANDIA,- 

1 FANHUB,TI PMD,RSS,NBL2,NVAN2, FAN D2,TIPMD2,RSS2, PRAT, TRAT, GAMMA F, - 

2 FANEFF,FANEF2,ISUPPR,SUPPIN,SUPPEX, EDOP , ED0P2 , DECMPT 

IGV=l/0 (Y/N INLET GUIDE VANES); 
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0002800 C 
0002900 C 
0003000 C 
0003100 C 
0003200 C 
0003300 C 
0003900 C 
0003500 C 
0003600 C 
0003700 C 
0003800 C 
0003900 C 
0009000 C 
0009100 C 
0009200 C 
0009300 C 
0009900 C 
0009500 C 
0009600 
0009700 
0009800 
0009900 
0005000 
0005100 
0005200 
0005300 
0005900 C 
0005500 
0005600 
0 005700 
0005800 
0005900 C 
0006000 C 


IFD=l/0 (Y/N INLET FLOW DISTORTION); 

IEXH=0/l/2 (FAN INLET ONLY/EXHAUST ONLY/OR BOTH INCLUDED); 
NSTG=NO . OF FAN STAGES; 

NH= NO. OF HARMONICS TO BE CONSIDERED IN TONES; 

NBL ( NBL2) =NO . OF FAN BLADES (2ND STAGE); NVAN ( NVAN2 ) =NO . VANES; 
FANDI A ( FAND2 ) = FAN DIAMETER IN M( FT ) ; 

FANHUB=DIAMETER OF FIRST STAGE FAN HUB, IN M( FT) ; 
TIPMD(TIPMD2)=DESIGN TIP RELATIVE MACH NUMBER; 

RSS(RSS2)=R0T OR- STATOR SPACING IN PERCENT; 

GAMMA F= GAMMA OF FAN AIR; FANEFF( FAN EF2 ) = FAN EFFICIENCY; 

( GAMMAF AND FANEFF REQUIRED IF USING "AFPR" IN "PARAM" INPUT 
INSTEAD OF "ADELT") 

DECMPT=DECREMENT TO APPLY TO COMBINATION TONES, DB 

PRAT =RATIO OF SECOND STAGE FPR TO FIRST STAGE FPR 

TRAT = " " " " DELT " " " DELT 

ISUPPR=l/0 (Y/N SUPPRESSION TO BE APPLIED TO INLET AND EXHAUST) 

SUPPIN/SUPPEX = INLET/EXHAUST SUPPRESSION SPECTRA 

ED0P/ED0P2 = EXP. ON SOURCE MOTION AMPLIF. (DEFAULT=9. ) 

DATA FIG7A/1.,0.,0.,0.,2.,9.5,7.5,11.,15.,19.5,25./ 

DATA THET 7 A/ 10. ,20. ,30. ,90. ,50. ,60. ,70. ,80. ,90. ,100. ,110./ 

DATA FI G7B/15. 8, 11. 5, 8. ,5. ,2. 7, 1.2, .3,0. ,2. ,6. ,10. ,15. ,20. ,15./ 
DATA THET7B/6 0., 70. ,80. , 90. ,100. ,110. , 12 0. ,130. ,190. ,150. ,160.,- 
1 170 . , 180 . , 190 ./ 

DATA FIG13A/1 .5, 0. ,0 . ,0 ., 1 .2,3.5,6.8,10.5, 19.5, 19./ 

DATA THT13 A/ 10. ,20. ,30. ,90. ,50. ,60. ,70. ,80. ,90. ,100./ 

DATA FIG13B/15.,11.,8.,5.,3.,1.,0.,0.,2.,5.5,9.,13.,18.,13./ 
ABSCISSA OF FIG 7B USED FOR FIG 13B 
DATA FI G1 6/ 9. 5, 8. 5, 7., 5., 2., 0.,0., 3. 5, 7. 5, 9., 13. 5, 9./ 

DATA THT16/0., 10. ,20. ,30. ,90. ,50. ,60. ,70. ,80. ,90. ,180. ,270./ 

DATA Cl/39.28,19.59, 9 . 96/ , C2/7 9 . 5,83 . 6 ,81 . 5/ , C3/-3 . ,-5.,-5./,- 
1 C9/3 . , 5 . , 3 . / 

DATA TABLES FOR USE IN CALC FAN TIP REL MACH NO. (FIRST STAGE 
ONLY, WITH GAMMA F = 1 . 9 ) 


0006100 

0006200 

0006300 

0006900 

0006500 

0006600 C 

0006700 

0006800 

0006900 

0007000 C 

0007100 

0007200 

0007300 

0007900 

0007500 

0007600 

0007700 

0007800 

0007900 

0008000 C 

0008100 

0008200 

0008300 

0008900 

0008500 

0008600 

0008700 

0008800 

0008900 

0009000 C 

0009100 

0009200 

0009300 

0009900 

0009500 

0009600 


DATA AWREF/0. ,8. 995, 11. 9592, 19. 5675, 16. 7366, 18. 6 17 9, 22. 515, 25. 67,- 
1 30.693,39.979,37.552,38.869,90.062,91.196,92.131,93.026,93.839,- 

1 99.576,95.295,95.899,96.393,97.317,98.099,98.995,99.386,99.91/ 

DATA ATR/1 . , . 993, . 996, . 999, . 992, . 99, . 985, . 98, . 97, . 96, . 95, . 995,- 
1 . 99, . 935, .93, . 925, . 92, .915, . 91, .905, .9, .89, .88, .86, .89, .8333333/ 

DEFAULT VALUES 

DATA GAMMA F, I EXH , NVAN2 , NBL2 , NH , IGV , I FD» NSTG/1 . 9 , 2 » 2 , 1 , 5, 0 , 0 , 1/ 

DATA SI , ENG/2HSI ,3HENG/, EDOP, ED0P2/9. ,9./ 

DATA AR,DISTOR, DECMPT/ . 0179533,2*0./ 

IF(IJ.NE.l.OR.KI.GT.l) GO TO 8 
IF(KI.EQ.O) GO TO 2 
ISUPPR=ISUPP 
JOUT = IOUT(l ) 

READ( 5 , FANDA ) 

IF(UNITS.EQ.ENG) GO TO 1 
FANDIA=FANDIA*3.28 
FANHUB=FANHUB*3.28 
FAND2=FAND2*3 . 28 

1 VBRAT=1 .-FLOAT (NVAN )/FLOAT( NBL) 

IF(VBRAT.EQ.O) VBRAT=2. 

AFAN=.7859*(FANDIA*FANDIA-FANHUB*FANHUB) 

GAM1=GAMMAF-1 . 

GAMRAT=GAM1/GAMMAF 
DRSS=5.*ALOG10(RSS/300. ) 

I F( RSS . GT . 1 0 0 . . AND. IFD. EQ . 1 ) DRSS = -2.386 
FTIPMD=0 . 

IFCTIPMD.GT.l. ) FTIPMD=20.*ALOG10(TIPMD) 

2 I F( JOUT . NE . 9 ) GO TO 6 

I F( TIPM . GT . .1) GO TO 3 
WREF=WAFAN/AFAN 

CALL TERP(ATR,WREF, 1. ,1. , AWREF, 1. ,1. , 26 , 1 , 1 , TR ) 

TIPM=SQRT( (2./TR-2. )/GAMl+ . 0 027916* ( RPM*FANDI A/C)**2/TR ) 

3 IF(DELT.LT. .01) DEL T =TAMB* ( FPR**GAMRAT-1 . )/FANEFF 


50 



0009700 
0009800 
0009900 
0010000 
0010100 
0010200 
0010300 
0010400 
0010500 
0010600 
0010700 
0010800 
0010900 
0011000 
0011100 
0011200 
0011300 
0011400 
0011500 
0011600 
0011700 
0011800 
0011900 
0012000 
0012100 
0012200 
0012300 
0012400 
0012500 
0012600 
0012700 
0012800 
0012900 
0013000 
0013100 
0 013200 
0013300 
0013400 
00 1350 0 
0013600 
0013700 
0013800 
0013900 
0014000 
0014100 
0014200 
0014300 
0014400 
0014500 
0014600 
0014700 
0014800 
0014900 
0 0 15000 
0015100 
0015200 
0015300 
0015400 
0015500 
0015600 
0015700 
0015800 
0015900 
0016000 
0016100 
0016200 
0016300 
0016400 
0016500 


IF! UNITS . EQ . SI ) GO TO 4 

WRITE! 6 , 95)RPM,WAFAN,FANDIA,TIPM,TIPMD,DELT,FPR,NBL,NVAN,RSS,- 
1 NSTG, FANEFF,IGV, IFD, IEXH,NH,GAMMAF, FANHUB 

GO TO 5 

4 WA FANM=WAFAN/2 .205 
DELTM=DELT/1 .8 
FANDIM=FANDIA/3.28 
FANHUM=FANHUB/3.28 

WRITE! 6,96) RPM,WAFANM, FANDIM,TIPM, TIPMD,DELTM, FPR, NBL , NVAN , RSS , - 
1 NSTG,FANEFF,IGV, I FD, I EXH , NH , GAMMAF , FANHUM 

5 IFCNSTG.EQ.l) GO TO 6 

I F! TIPM2 . L T . .01) TIPM2=TIPMXTIPMD2/TIPMD 
TRATX=TRAT 

I F( TRAT . EQ . 0 . ) TRATX= ( T AMB/DELT+1 . ) x ( ( FPRXPRAT ) XXGAMRAT-1 . )/FANEF2 
I F( UNITS. EQ. ENG) WRITE! 6, 97) FAND2 , TIPM2 , TIPMD2 , TRATX, PRAT , NBL2, - 
1 NVAN2,RSS2,FANEF2 

FAND2M=FAND2/3.28 

IF! UNITS. EQ. SI) WRITE! 6, 98) FAND2M, TIPM2 , TIPMD2 , TRATX, PRAT , NBL2 , - 
1 NVAN2, RSS2, FANEF2 

6 IF! ISUPPR . NE . 1 ) GO TO 8 

IF! JOUT.EQ.4) WRITE!6,103) ! SUPPIN ! L ) , L = 1 , 24 ) , ! SUPPEX! L ) , L = 1 , 24 ) 

DO 7 L = 1 , 24 

SUPIN ! L ) =1 0 . XX ( . 1XSUPPIN!L ) ) 

7 SUPEX! L )=10 . XX! . 1XSUPPEX! L ) ) 

C 

8 IF!DELT.LT. .01) DELT=TAMBX! FPRXXGAMRAT-1 . )/FANEFF 
RLOG=20.xALOG10!R/3.28) 

TSQ EM- 1 0 . XALOGIO ! D EL T* * 2XWAFAN/FD0PXX EDOP ) 

BP F=RPMX FLOAT! NBL )/60 ,/FDOP 
SPLPK=58 . 5+TSQEM-DRSS-RLOG+FTIPMD 
T0NLV=SPLPK+2 . -DRSS 
SPLPKX=SPLPK+1.5 

C xxxxxx CALCULATE FAN FACE SPEED OF SOUND, CX, ASSUMING AIR 
WREF=WAFAN/AFAN 

CALL TERP! ATR.WREF, 1 . , 1 . , AWREF, 1 . , 1 . , 26 , 1 , 1 , TR ) 

TX = TRXCTAMB+VIXVI/12015.1) 

CX=CXSQRT! TX/TAMB) 

RTSM= . 0 5236 XRPMX F ANDI A/CX 
C xxxxxx TO CALC T I PM IF NOT SUPPLIED 

I F ! T I PM . L T . .01) TIPM = SQRT! !2./TR-2. )/GAMl + RTSMXRTSM) 

9 DTIPM=20 .XALOG10!TIPM) 

IF(TIPM.GT. .9) SPLPK=SPLPK-DTIPM-. 91515 
IFLTIPM.GT. 1 . ) SPLPKX=SPLPKX-DTIPM 
IF! IGV . EQ . 1 ) SPLPKX-SPLPKX+3 . 

I F ! T I PM . L E . .72) GO TO 10 
DT I PM1 =2 . 5XDTIPM+7 .133 
DTIPM2=3 . XFTIPMD-4 . XDTIPM-1 . 

TONLV=TONLV+AMINl ! DT I PM1 , DT IPM2 ) 

10 TONLVX=SPLPKX+3.-DRSS 

IF! IGV . EQ . 1 ) T0NLVX = T0NLVX+3. 

CALL TERP! FI G7 A, THETA, 1 . ,1. , THET7A , 1 . , 1 . , 1 1 , 1 , 1 , FIG7 AX) 
SPLPK=SPLPK-FIG7AX 

CALL TERP!FIG7B, THETA, l.,l. , THET7B , 1 . , 1 . , 14 , 1 , 1 , FIG7BX) 
SPLPKX=SPLPKX-FIG7BX 

CALL TERP!FIG13A,THETA,1. ,1. ,THT13A,1. ,1. , 10 , 1 , I , F13AX) 
T0NLV=T0NLV-F13AX 

CALL TERP ! FIG13B , THETA, 1 . , 1 . , THET7B , 1 . , 1 . , 14 , 1 , 1 , F13BX) 

T0NLVX=T0NLVX-F13BX 

CUTOF=ABS! RTSM/VBRAT ) 

ICUT=0 

IF! CUTOF.LT. 1. 05. AND. RTSM. LT. 1. ) ICUT=1 
DO 11 L = 1 , 24 
DCP ! L ) =0 . 

DP! L ) = 0 . 

11 DPX! L ) =0 . 

IF!TIPM.LE. 1 . ) GO TO 15 

C xxxxxx COMBINATION TONES 

CALL TERP !FIG16, THETA, 1. ,1. , THT16 , 1 . , 1 . , 12 , 1 , 1 , DIR) 

DO 14 K=1 , 3 
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0016600 
0016700 
0016800 
0016900 
0017000 
0017100 
0017200 
0017300 
0017400 
0017500 
0017600 
0017700 
0017800 
0017900 
0018000 
0018100 
0018200 
0018300 C 
0018400 
0018500 
0018600 
0018700 
0018800 
0018900 
0019000 
0019100 
0019200 
0019300 
0019400 
0019500 
0019600 
0019700 
0019800 
0019900 
0020000 
0020100 
0020200 C 
0020300 C 
0020400 
0020500 
0020600 
0020700 
0020800 
0020900 
0021000 
0021100 
0021200 
0021300 
0021400 
0021500 
0021600 
0021700 
0021800 
0021900 
0022000 
0022100 
0022200 
0022300 
0022400 
0022500 
0022600 
0022700 
0022800 
0022900 
0023000 
0023100 
0023200 C 
0023300 
0023400 


CM=30.+C1(K)*DTIPM 

CN=C2(K)-2.5#DTIPM 

COMBL=AMINl(CM,CN)+TSQEM-DIR-RLOG-DECMPT 
IF(IGV.EQ.l) C0MBL=C0MBL-5. 

COMB =10 . xx( . 1XCOMBL ) 

DO 12 L=l,24 
FRAT=BPF/FK/F(L) 

IF(FRAT. GT. 1.12201845. OR. FRAT.LT. .89125094) GO TO 12 
CF=F(L) 

GO TO 13 

12 CONTINUE 

13 DO 14 L = 1 , 24 
FREQ=F( L )/CF 

IFCFREQ.LE.l. ) SPEC=FREQXXC3(K) 

IF( FREQ . GT . 1 . ) SPEC=FREQXXC4(K) 

14 DCP(L)=DCP<L)+COMB/SPEC 

xxxxxx TONES AT BPF AND HARMONICS (SEE FIGURES 8 & 9) 

15 DO 16 IH=1 , NH 
FIH=IH 

H ARM=3 . # ( FIH-1 . ) 

IFCIGV. EQ. 1 . AND. IH.GT. 1) HARM=HARM+6 . 

IFCICUT. EQ. 1 . AND. IH. EQ .1) HARM=8 . 

I F( IFD . EQ . 1 ) DISTOR=l 0 . XX( . 1XTONL V-FIH+1 . ) 

TONPWR = 10 . XX( . lX(TONLV-HARM) )+DISTOR 
TONPWX= 10 .xx( . lX(TONLVX-HARM) ) 

DO 16 L = 1 , 24 
FRAT=BPFxFIH/F(L) 

FR-1 . 

IF(FRAT. GT.F4.OR.FRAT.LT. FI) GO TO 16 
I F ( FRAT.GT. F3) FR= ( F4-FRAT )/ ( F4-F3 ) 

IFCFRAT.LT.F2) FR=( FRAT-F1 )/( F2-F1 ) 

DP(L)=DP(L)+TONPWRXFR 
DPXC L ) =DPX( L ) +TONPWXXFR 

16 CONTINUE 

IF(NSTG.EQ.l) GO TO 20 

xxxxxx FOR FANS OR COMPRESSORS OF TWO STAGES (REQUIRES 
TRAT OR PRAT IN FANDA) 

IF(IJ.NE.l.OR.KI.NE.l) GO TO 17 
VBRAT2=1 .-FLOAT (NVAN2) /FLOAT (NBL2) 

I F( VBRAT2 . EQ . 0 ) VBRAT2=2. 

DRSS2=5.XALOG10(RSS 2/300.) 

IFCRSS2.GT.100.) DRSS2=-2.386 
ETIPMD=0 . 

IFCTIPMD2 .GT. 1 . ) ETIPMD=20.*ALOG10(TIPMD2) 

17 CX=CXSQRT( (TX+DELT)/TAMB) 

IF(TRAT.NE.O.) DELT2=DELTXTRAT 

I F( TRAT . EQ . 0 . ) DEL T2= < T AMB+DELT ) X ( ( FPRXPRAT ) XXGAMRAT-1 . )/FANEF2 
IF( TIPM2 . EQ. 0 . ) TIPM2=TIPMXTIPMD2/TIPMD 

SPLP2=58. 5+10 .xALOG10( DEL T2XX2XWAFAN/FD0PXXED0P2)-DRSS2-RL0G+ETIPMD 
BPF2=RPMXFLOAT(NBL2)/60 ./FDOP 

18 SPLP2X=SPLP2+4.5 
T0NLV=SPLP2+2.-DRSS2-F13AX 
DTIPM=20.*ALOG10(TIPM2) 

IF( TIPM2 . GT . .9) SPLP2=SPLP2-DTIPM- . 91515 
IF( TIPM2 . GT . 1 . ) SPLP2X=SPLP2X-DTIPM 
DTIPM1=2 . 5*DTIPM+7 - 133 
DTIPM2=3 . XETIPMD-4 . XDTIPM-I . 

TON L V = TONL V + AMI N 1 ( DT IPM1 , DT IPM2 ) 

T0NLVX=SPLP2X+6 . -DRSS2-F13BX 
SPLP2=SPLP2-FIG7AX 
SPLP2X=SPLP2X-FIG7BX 
RTSM2=. 05236XRPMXFAND2/CX 
CUT0F=ABS(RTSM2/VBRAT2) 

ICUT=0 

IFCCUTOF.LT.l. 05 . AND . RTSM2 . LT . 1 . ) ICUT=1 
****** TONES AT BPF2 AND HARMONICS (NO COMBINATION TONES) 

DO 19 IH=1,NH 
FIH=IH 
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0023500 

0023600 

0023700 

0023800 

0023900 

0024000 


HARM = 3.*CFIH-1 . ) 

IF(IH.GT.l) H ARM=H ARM+6 . 
IFCICUT.EQ.l.AND.IH.EQ.l) HARM=8. 
TONPWR=10 . **( . l*(TONLV-HARM) ) 
TONPWX=10 .*x( . lX(TONLVX-HARM) ) 

DO 19 L=l,24 


0024100 
0024200 
0024300 
0024400 
0024500 
0024600 
0024700 
0024800 
0024900 C 
0025000 
0025100 
0025200 
0025300 
0025400 
0025500 
0025600 
0025700 
0025800 
0025900 
0026000 
0026100 
0026200 
0026300 
0 02640 0 
0026500 
0026600 
0 0267 0 0 
0026800 
0026900 
0 0270 0 0 
0027100 
0027200 
0027300 
0027400 
0027500 
0 0276 0 0 
0 0277 00 
0027800 
0027900 
0 0280 0 0 
0028100 
0028200 
0028300 
0028400 
0028500 
0028600 
0028700 
0028800 
0028900 
0029000 
0029100 
0029200 
0029300 
0029400 
0029500 
0029600 
0029700 
0029800 
0029900 
0030000 
0030100 
0030200 
0030300 


FRAT=BPF2*FIH/F(L) 

FR = 1 . 

IFCFRAT. GT.F4.0R.FRAT.LT. FI) GO TO 19 
IFCFRAT.GT. F3) FR= C F4-FRAT )/ C F4-F3 ) 

IFCFRAT. LT.F2) FR= C FRAT- FI )/ ( F2-F1 ) 

DP(L)=DP(L)+TONPWRXFR 
DPX(L)=DPX(L)+T ONPWXX FR 

19 CONTINUE 

20 SUM=0. 

DO 23 L = 1 , 24 

FL0G=3.491*<AL0G(F(L)/BPF/2.5))**2 

PLEV=DP(L)+10.**(.1X(SPLPK-FLOG)) 

IF(TIPM.GT.l. ) PLEV=PLEV+DCPCL) 

PLEVEX=DPX( L )+l 0 . XX( . 1 x ( S P L PKX- FL OG ) ) 

IFCNSTG. EQ . 1 ) GO TO 21 
FL0G2=3.49lx(AL0G(F( L ) /BP F2/2 . 5) )**2 
PLEV=PLEV+10.**(.1*(SPLP2-FLOG2)) 

PL EVEX = PLEVEX+10 . XX ( . 1 x ( SPL P 2X- F L 0G2 ) ) 

21 IF( ISUPPR . NE. 1 ) GO TO 22 
PLEV=PLEV/SUPIN(L) 

PLEVEX = PLEVEX/SUPEX(L ) 

22 IF(IEXH.EQ.l) PLEV=PLEVEX 

I F ( I EXH . EQ . 2 ) PLEV=PLEV+PLEVEX 
P L EV = N ENGXP L EV 
SUM=SUM+PLEV 
SPL(L)=10.xaLOG10(PLEV) 

TP ( L ) = TP( L )+PLEV 

23 CONTINUE 

IF( JOUT . EQ . 0 ) RETURN 
OASPL=10 . XALOGIO(SUM) 

PNL=PERNOY(SPL) 

PNLT=PNL+TONE(SPL ) 

IFC JOUT. EQ. 1) WRITE(6,93) C SPL ( L ) , L = 1 , 24 ) , OASPL , PNL , PNLT 
IF( JOUT .NE.2) RETURN 

IFCUNITS. EQ. ENG) WRITE(6,94) X, Y, TAU, OASPL , PNL , PNLT 
XM=X/3 . 28 
YM- Y/ 3 . 28 

IFCUNITS. EQ. SI) WRITE(6,94) XM , YM , T AU , 0 ASP L , PNL , PN L T 
RETURN 

93 FORMAT C 8H FAN = , 1 7 F7 . 1/8X , 7 F7 . 1 , 2 IX , 8H OASPL =,F7.1,6H PNL =,- 

1 F7 . 1 , 7 H PNLT =, F7 . 1 ) 

94 FORMAT ( 9H FAN = , 2 F8 . 1 , F8 . 3 , 3 F8 . 1 ) 

95 FORMAT ( * INPUT PARAMETERS: FAN SPEED = ' , F6 . 0 , ’ RPM; FAN MASS- 

1 FLOW (WAFAN) =',F6.1,' LB/S; FAN DIAMETER CFANDIA) =',F6.3,~ 

2 4 H FT ; , / 5X , ' T I P REL MACH NO.(TIPM) =',F6.3,'; DESIGN REL TIP- 

3 MACH (TIPMD) =',F6.3, r ; TEMP RISE C DEL T ) =',F6.1,7H DEG R;,/5X, 

4 ’PRESS RATIOC1 STAGE ) ( FPR ) =’,F6.3,’; NO. BLADES (NBL) =’,I3,- 

5 NO. VANES ( NVAN ) =’,I3,’; ROTOR/STATOR SPACING (RSS) 

6 F5.0.3H X;,/5X,’N0. STAGES(NSTG) =’,I2,’; STAGE EFF (FANEFF)- 

7 =’,F5.3,’; INLET GUIDE VANES CIGV) =’,I1,’; INLET FLOW DISTOR- 

8 CIFD) =’, II , 1H; ,/5X, ’ EXHAUST NOISE OPTION (IEXH) =’,11,’; NO.- 

9 OF TONE HARM CALC (NH) =’,I2,’; AIR GAMMAF =’,F5.2,’; FAN- 
1 HUB DIAMC FANHUB ) =',F6.3,4H FT.) 

96 FORMAT ( ’ INPUT PARAMETERS: FAN SPEED = ’ , F6 . 0 , ’ RPM; FAN MASS- 

1 FLOW (WAFAN) = ’ , F6 . 1 , ’ KG/S; FAN DIAMETER CFANDIA) = ’ , F6 . 3 , - 

2 3H M; ,/5X, ’TIP REL MACH NO.CTIPM) =’,F6.3,’; DESIGN REL TIP- 

3 MACH (TIPMD) =’,F6.3,’; TEMP RISE (DELT) =’,F6.1,7H DEG K;,/5X, 

4 ’PRESS RAT 10 ( 1 STAGEMFPR) =’,F6.3,’; NO. BL ADESCNBL ) =’,I3,- 

5 ’; NO. VAN ES ( NVAN ) =’,I3,’; ROTOR/STATOR SPACING (RSS) =’,- 

6 F5.0.3H X ; , /5X, ’ NO . STAGESCNSTG) =’,I2,’; STAGE EFF CFANEFF)- 

7 = ’ , F5 . 3 , ’ ; INLET GUIDE VANES (IGV) =’,I1,’; INLET FLOW DISTOR- 

8 (IFD) =’ ,11, 1H; ,/5X, ’EXHAUST NOISE OPTION (IEXH) =’,I1,’; NO.- 
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0030400 

0030500 

0030600 

0030700 

0030800 

0030900 

0031000 

0031100 

0031200 

0031300 

0031400 

0031500 

0031600 

0031700 

0031800 

0031900 

0032000 


0000100 C 
0000200 C 
0000300 C 
0000400 C 
0000500 C 
0000600 C 
0000700 C 
0000800 C 
0000900 C 

0001000 c 
0001100 c 

0001200 C 
0001300 
0001400 
0001500 
0001600 
0001700 
0001800 
0001900 
0002000 
0002100 
0002200 
0002300 
0002400 
0002500 
0002600 C 
0002700 C 
0002800 C 
0002900 C 
0003000 C 
0003100 C 
0003200 C 
0003300 C 
0003400 C 
0003500 C 
0003600 C 
0003700 C 
0003800 C 
0003900 C 
0004000 C 
0004100 C 
0004200 C 
0004300 C 
0004400 C 
0004500 C 
0004600 
0004700 
0004800 C 


9 OF TONE HARM CALC (NH) =’,I2,’; AIR GAMMAF =’,F5.2,’; FAN- 
1 HUB DIAM(FANHUB) =’,F6.3,3H M.) 

97 FORMAT ( 1 SECOND STAGE: DIAMETER ( FAND2 ) =',F6.3,’ FT; TIP REL- 

1 MACH( TIPM2) =’,F6.3,’; DES REL MACH(TIPMD2) = ' , F6 . 3, 1H./5X, - 

2 'SECOND/FIRST TEMP RISE RATIO (TRAT) =',F5.3,’; SEC/FIRST PRESS- 

3 RISE (PRAT) = ’ , F5.3,1H; ,/5X, ’NO. BLADESCNBL2) =',I3,'; NO.- 

4 VANES(NVAN2) =',13,'; ROTOR/STATOR SPACE(RSS2) =’,F5.0,’ %;- 

5 SECOND STAGE EFF ( FANEF2 ) =’,F5.3) 

98 FORMAT ( ' SECOND STAGE: DIAMETER ( FAND2 ) =’,F6.3,' M; TIP REL- 

1 MACH ( TIPM2 ) = ' , F6 . 3 , ' ; DES REL MACHCTIPMD2) = ’ , F6 . 3 , 1H , /5X, - 

2 'SECOND/FIRST TEMP RISE RATIO (TRAT) =’,F5.3,’; SEC/FIRST PRESS- 

3 RISE (PRAT) =',F5.3,1H;,/5X, ’NO. BLADES(NBL2) =’,I3,’; NO.- 

4 VANES ( NVAN2 ) =’,I3,’; ROTOR/STATOR SPACE(RSS2) =’,F5.0,’ X;- 

5 SECOND STAGE EFF ( FANEF2 ) =’,F5.3) 

103 F0RMAT(1X, 'FAN SUPPRESSION SPECTRA - ’ , /IX , ’ INL ET : ' , 24F5 . 1/1X, - 

1 ’EXHAUST: ’,24F5.1) 

END 


Subroutine JET 


SUBROUTINE FOR JET NOISE CALCULATION 

BASED ON STONE’S ANOP PREDICTION (TMX-71618) 

CALLED BY NOIS OR RADIUS 

CALLS SUBROUTINES TERP, PERNOY, TONE 

INFLOW: TP, F, UNITS, ISKIP, IOUT , FDOP , C , TAMB , PAMB , ISUPP 

R, THETA, VI,X,Y,TAU,IJ,KI, VC, VF, TC , TF, FUEL , WCORE 
RETURNS: TP , SPL , OASPL , PNL , PNL T 

REQUIRES PARAM INPUT OF AVC,ATC, OPTIONAL AWCORE, AFUEL FOR 
CORE STREAM; AVF, ATF FOR FAN STREAM 

SUBROUTINE JET 

DIMENSION DSPL(27,8),SHIFT(17,5),DSHSPL(27),ASTRU(27),ATHET(8),~ 

1 VRAT (5) ,ARAT ( 17) ,SPLSHC(24) ,SPLSHF(24) 

DIMENSION AGAM(8,3),AGASR(8»3),AFAR(3), ATEMP (8 ) 

COMMON/GEOM/R , THETA,THETAF,THETAH,PHI»VIEW,HEAD,PSYI,FLAPI,EPPI»- 
1 VI,X,Y,TAU, IJ,KI 

COMMON/SPECT/TP (24),SPL(24), F( 24 ), OASPL , PNL , PNLT 
COMMON/P ARAM/VC, VF,TC,TF, FUEL , WAFAN , RPM, TIPM, TIPM2 , DELT , FPR , - 
1 WCORE, P3,T3,T4 

COMMON UNITS, ISKIP, IOUT (3), IREV, ILG, FDOP, C, TAMB, PAMB, RH, NENG, ISUPP 
REAL MC , MF , MDC , MDF 

NAMELIST/JETDA/JOUT,IFWD,INOZ,IPLUG,ISLOT»AC,MDC,GAMMAC,GASRC,- 
1 DHC , ANNHT , EDOP , AF , MDF, GAMMAF, GASRF, DHF, ANNHTF 

AC/AF = AREA OF CORE/FAN NOZZLE 

MDC/MDF = DESIGN MACH NUMBER OF CORE/FAN NOZZLE (IF SUPERSONIC) 
GAMM AC/ GAMMAF □ GAMMA OF CORE/FAN FLOW X 

GASRC/GASRF = GAS CONSTANT OF CORE/FAN FLOW IN J/KG/DEG K ,OR 
(FT LB/LBM/DEG R) * 

x GAMMAC AND GASRC VALUES CAN BE CALCULATED IF FUEL AND 
WCORE FLOW DATA IN PARAM. USES DEFAULT VALUES IF 
NOT SUPPLIED AND FUEL=0. 

DHC/DHF = HYDRAULIC DIAM OF CORE/FAN NOZZLE (REQD. FOR SLOT) 
ANNHT/ANNHTF = ANNULAR HEIGHT OF CORE( PLUG)/FAN NOZZLE 
INOZ = 1/0= (COAXIAL/SIMPLE CIRCULAR NOZZLE) 

FOR MIXED FLOW NOZZLE, USE INOZ=0 AND ENTER 
GASRC, GAMMAC, AVC, AND ATC FOR MIXED FLOW PROPERTIES. 
ISLOT = 1/0: (Y/N, SLOT NOZZLE ON PRIMARY) 

IPLUG = 1/0= (Y/N, PLUG NOZZLE ON PRIMARY) 

I FWD = 1/0: (Y/N, FORWARD VELOCITY EFFECTS ON SOURCE) 

EDOP = EXP. ON SOURCE MOTION (DOPPL ER) AMPLIF. ON SHOCK 
NOISE ONLY (DEFAULTS.) 

ASTRU REPRESENTS ABSCISSA VALUES FOR FIGURES 5, 7, 17, AND 19 
DATA ASTRU/-1. 8,-1 .6,-1 .4,-1. 2,-1. 1,-1 .,-.9, -.8, -.7, -.6, -.5, -.4,- 
1 — .3,— .2,— .1,0. , .1, .2, .3, .4, .5, .6, .7 , .8,1. ,1.2, 1.8/ 

FROM FIGURE 5 
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0004900 
0005000 
0 0051 0 0 
00 0520 0 
00 0530 0 
0005400 
0005500 
0005600 
0005700 
0005800 
0005900 
0006000 
00061 00 
0006200 
0006300 
0006400 
0006500 
0006600 
0006700 C 
0006800 
0006900 
0 0 0 7 0 0 0 
0007100 C 
0 0 0 720 0 
0007300 
0007400 
0 0 0 7500 
0007600 
0 0 0 77 0 0 
0007800 
0007900 
0008000 
0008100 C 
0008200 C 
0008300 C 
0008400 
0008500 
0008600 
0 0 087 00 
0 0 0880 0 
0008900 
0009000 
0009100 C 
0009200 
0009300 
0009400 
0009500 
0009600 C 
0009700 
0009800 
0009900 
0010000 C 
0010100 
0010200 
0010300 
0010400 
0 0 1 0500 
0010600 
0010700 C 
0010800 
0010900 
0011000 
0011100 
0011200 
0011300 
0011400 
0011500 
0011600 
0011700 


DATA DSPL/ 38. 7, 34. 2, 29. 7, 25. ,22. 8, 20. 7, 18. 7, 17. 1,15. 6, 14. 3, 13. 3,- 

112. 5. 11. 8. 11. 3.11.. 2,10. 8, 11. ,11. 4, 11. 9, 12. 6, 13. 3, 14. 3, 15. 3, 17.5,- 

219.7.26.8, 43.8,38.2,32.5,26.8,24.,21.5,19.2,17.1,15.4,14.,12.8,- 
311.9,11.3,10.8,10.6,10.5,10.6,11.1,11.6,12.4,13.2,14.2,15.3,16.4,- 

418.8.21.1.28.2, 41.5,35.5,29.6,23.5,20.4,17.7,15.7,14.1,12.9,11.8- 

5. 11. . 10. 4. 10. 1.10. .10. 2. 10. 6. 11. 2. 11. 9. 13. .14. 1.15. 4. 16. 6. 17. 9,- 

619.2.21.6.24. . 31.4, 38.7,32.6,26.4,20.1,17.2,14.8,13.,11.5,10.4,- 

79. 7. 9. 3. 9. 4. 10. . 10. 8. 11. 7. 12. 8. 14. 2. 15. 6. 16. 9. 18. 3. 19. 8. 21. 1.22. 5, 

8.23.9.26.7.29.6.37.8, 37.1,31.5,25.2,18.7,15.9,13.6,11.6,10.,8.8,- 

98. . 8. 3. 9. 2. 10. 7. 12. 1.13. 7.15. 3. 17. .18. 6. 20. 3. 21. 9. 23. 6. 25. 3. 26. 9,- 
128.7,31.9,35.3,45.1, 36.5,30.3,23.6,17.3,14.5,12.4,11.2,10.9,10.7- 

2. 11. 2. 12. 6. 14. 3. 16. . 17. 9.19. .21. 7. 23. 7. 25. 7. 27. 5. 29. 4.31. 4. 33. 3,- 

335.2.37.2.40.9.44.7.56.2, 40.,33.6,27.4,21.2,17.9,15.7,14.2,14.,- 

414. 8. 15. 8. 16. 9. 18. 3. 20. . 21. 8. 23. 9. 26. 2. 28. 3. 30. 4.32. 5.34. 5. 36. 7,- 

558.8.40.9.42.9.47.2.51.2.63., 40.5,34.7,28.7,22.8,19.8,17.4,16.5,- 
616.4,17.5,18.7,20.4,22.1,24.2,26.4,28.9,31.2,33.8,36.2,38.5,40.9,- 
7 43.3,45.7,48. ,50. 3, 55. 2, 60. ,74./ 

DATA ATHET/110 .,120. ,130. ,140. ,150. ,160. ,170. , 18 0./ 

FROM FIGURE 7 

DATA DSHS PL/36. 8, 32. 6, 28. 4, 24. 3, 22. 3, 20. 3, 18. 6, 17. 2, 15. 9, 14. 7,- 

1 13. 5, 12. 6, 11. 9, 11. 4, 11. ,10. 7, 10. 6, 10. 8, 11. 1,11. 5, 12. 2,13.,- 

2 14.1.15.2,18.1,21.1,30.7/ 

FOR FIGURE 12 

DATA ARAT/0.,.1,.2,.3,.4,.5,.6,.7,.8,.9,1.,1.1,1.2,1.3,1.4,- 
1 1 . 5 , 1 . 6/ 

DATA SHIFT/0 .,.07,.136,.19,.234,.266,.285,.291,.297,.299,7*.3,- 
10. ,.085, .17, .246, .315, .376, .433, .483, .53, .573, .611, .645, .676, .704- 

2.. 73.. 753.. 778, 0.,. 123, .23, .327, .41, .477, .534, .58 5, .63, .671, .7 08- 

3. . 7 38. .767. .794. .818. .84. .86, 0., .1,-2, .287, .365, .433, .491, .54,- 

4. 586.. 625.. 66.. 689.. 713.. 7 38.. 761., 78 3,. 805, 0., .08, .157, .23, .293- 
5 , .35, .404 , .453 , .5, .54 2, .58, .613, .645, .674, .7 , .7 25, .75/ 

DATA VRAT/.2, .4, .6, .8,1./ 

TABLES FOR CALC. GAMMAC AND GASRC , BASED ON A-l FUEL (H/C=.16, 
LHV-10335), FROM VALUES OF FUEL AND WCORE SUPPLIED TO RADIUS 
OR NOISE. IF FUEL -0 . , USES DEFAULTS FOR GAMMAC AND GASRC. 
DATA AFAR/0 . , . 02 , . 05/ 

DATA A TEMP/5 4 0 . ,720. ,108 0. ,1440. , 18 00. ,2160. , 27 00. , 36 00./ 

DATA AGAM/ 1.398, 1.394, 1.374, 1.352, 1.335, 1.323, 1.3 1,1. 296, 1.389,- 

1 1.382,1.361,1.339,1.321,1.309,1. 295,1.282, 1.377,1.367,1.343,- 

2 1.321,1.303,1.29,1.277,1.263/ 

DATA AGASR/ 7X53. 35, 53. 36, 7X53. 33, 53. 36, 7X53.31,53. 36/ 

DATA AR,CISA,RHOIS A/. 0174533, 1116. , .0765/ 

TABLE OF DEFAULT VALUES 

DATA GASRC, GAMMAC , GASRF , GAMMA F/2X- 1 . ,53.35,1.4/ 

DATA MDC , MDF/2X1 . / 

DATA ISLOT , IPLUG, IFWD, I GAM, IGASR/5X0/ 

DATA SI , ENG/2HSI , 3HENG/, EDOP/1 . / 

DO 1 L = 1 , 24 
SPLSHC(L)=0. 

1 SPLSHFCL1=0. 

SKIP MOST CALCS IF ENGINE PARAMS AND AIRCRAFT VELOCITY CONSTANT 
IFC ISKIP . EQ . 1 ) GO TO 21 
IF(IJ.NE.l.OR.KI.GT.l) GO TO 7 
IF(KI.EQ.O) GO TO 3 
RH0AMB=PAMB/53. 3/TAMB 
JOUT=IOUT( 1 ) 

ISUPPR-IS'JPP 

READC5, JETDA) 

IFC GAMMAC . GT . 0 . ) IGAM=1 
IFC GASRC . GT . 0 . ) IGASR = 1 
IFCUNITS . EQ . ENG) GO TO 2 
AC=AC*10 .76 
AF=AFX10 .76 
DHC=DHC*3 . 28 
DHF=DHFX3 . 28 
ANNHT=ANNHTX3 . 28 
ANNHTF=ANNHTFX3.28 
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0011800 
00 11900 
0012000 
0012100 
0012200 
0012300 
0012400 
0012500 
0012600 
0012700 
0012800 
0012900 
0013000 
0013100 
0013200 
0013300 
0013400 
0013500 
0013600 
0013700 
0013800 
0013900 
0014000 
0014100 
0014200 
0014300 
0014400 
0014500 
0014600 
0014700 
0014800 
0014900 
0015000 
0015100 
0015200 
0015300 
0015400 
0015500 
0015600 
0015700 
0015800 
0015900 
0016000 
0016100 
0016200 
0016300 
0016400 
0016500 
0016600 
0016700 
0016800 
0016900 
0017000 
0017100 
0017200 
0017300 
0017400 
0017500 
0017600 
0017700 
0017800 
0017900 
0018000 
0018100 
0018200 
0018300 
0018400 
0018500 
0018600 


GASRC-GASRC* . 1858 
GASRF=GASRF*. 1858 

C xxxx** FOR SIMPLE JETS, OR FOR CORE FLOW OF COAXIAL JETS 
C 

2 ACRH0=AC*PAMB*PAMB/4478373. 

DC=SQRT (AC#1 .27324) 

DPC=DC 

DDP=0. 

I FC IPLUG.NE. 1 ) GO TO 3 
DPC= ANNHT+ AC/3. 141 6/ANNHT 
DDP=DPC-2.*AHNHT 
I F( DHC . EQ . 0 . ) DHC=2.*ANNHT 

3 IFC JOUT . NE . 4 ) GO TO 7 

C FOR INPUT VALUES WHEN USING RADIUS 

IFC W CORE. GT.O. ) FAR=FUEL/C WCORE-FUEL ) 

IFCIGAM. EQ. 1) GO TO 4 
GAMMAC=1 . 4 

IF( FUEL .GT. 0 . )CALL T ERP ( AG AM , TC , FAR , 1 . , A TEMP, AFAR, 1 . , 8 , 3 , 1 , GAMMAC) 

4 IF(IGASR.EQ.l) GO TO 5 
GASRC=53 . 35 

IFCFUEL. GT.O. )CALL TERP(AGASR,TC,FAR,1. , ATEMP , AFAR , 1 . ,8,3,1, GASRC ) 

5 IFCUNITS. EQ.SI) GO TO 6 

WRITEC6 , 95) I NOZ , IP LUG , IS LOT , I FWD , AC , VC , TC , GAMMAC , GASRC , MDC , - 
1 DHC, ANNHT, FUEL 
GO TO 7 

6 ACM=AC/10 . 76 
VCM=VC/3 . 28 
TCM=TC/1 .8 
GASRCM=GASRC/ . 1858 
DHCM=DHC/3 . 28 
ANNHTM=ANNHT/3.28 
FUELM=FUEL/2 .205 

WR I TEC 6, 96) INOZ , IPLUG , ISLOT , I FWD, ACM, VCM, TCM, GAMMAC , GASRCM , - 
1 MDC, DHCM, ANNHTM, FUELM 

7 VMC=VC/C 

IFCWCORE.GT.O. ) FAR=FUEL/(WCORE~FUEL) 

IFCIGAM. EQ.l) GO TO 8 
GAMMAC= 1 . 4 

IFCFUEL .GT. 0 . )CALL TERP C AGAM, TC , FAR , 1 ., ATEMP , AFAR , 1 . , 8 , 3 , 1 , GAMMAC ) 

8 IFCIGASR.EQ.l) GO TO 9 
GASRC=53 . 35 

IFCFUEL. GT.O. )CALL T ERP C AGASR , TC , FAR , 1 . , ATEMP , AFAR , 1 . , 8 , 3 , 1 , GASRC ) 

9 TEC=TC-VC*VC#C 1 .-1 . /GAMMAC )/GASRC/64.4 
MC=VC/SQRTC32.2XGAMMACXGASRCXTEC) 

RHOC=PAMB/GASRC/TEC 

EMMC= . 62XVMC 
THETAP=THETAXVMCXX . 1 

: USE THET FOR INTERPOLATION, WHERE 1 1 0 . L E . THET . L E . 180 

THET -THET AP 

IFCTHETAP.GT. 180 . ) THET=180. 

IFCTHETAP.LT.110.) THET=110. 

VM=VMC 

I FC I FWD . EQ . 0 ) GO TO 10 
VM^VMCX C 1 .-VI/VC)**. 75 
EMMC=EMMC#C 1 . -VI/VC) 

10 VM35=VM**3.5 

VC0R=VMxxa.*VM35/C1 .+. 01XVMXVM35) 

SPLOR=141.+10.XALOG10CACRHOXVCOR)+(30.XVM35/C . 6+VM35)-10 . )#- 
1 ALOGIOCRHOC/RHOAMB) 

CSTRUH = DC/VC?((TC/TAMB)xx( . 4* ( 1 . +COS C THETAP*AR ) ) ) ^FDOP 
: xxxxxx FOR PLUG OR SLOT NOZZLE 

IFCIPLUG.EQ.l) SPLOR=SPLOR+3.XALOG10( . 1+2 . XANNHT/DPC) 

IFC IPLUG. EQ. 1 .OR. ISLOT. EQ.l) CSTRUH=CSTRUH* C DHC/DC ) xx . 4 
IFCMC.LT. 1. .OR.ABSC MC-MDC ) . L T . .01) GO TO 12 
: xxxxxx SHOCK NOISE OF CORE JET 
FM3=CMC-1 . )**3 
VF8=VMC**8 
F3=MC**3 

DNUM=12.5XFM3XVF8 
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0018700 
0018800 
0018900 
0019000 
0019100 
0019200 
0019300 
0019900 
0019500 
0019600 
0019700 
0019800 
0019900 
0020000 
0020100 
0020200 
0020300 
0020900 
0020500 
0020600 
0 020700 
0020800 
0020900 
0021 0 00 
0021 1 00 
0021200 
0021300 
0021900 
0021500 
0021600 
0021700 
0021800 
0021900 
0 0220 0 0 
0022100 
0022200 
0022300 
0022900 
0022500 
0022600 
0022700 
0022800 
0022900 
0023000 
0023100 
0023200 
0023300 
0023900 
0023500 
0023600 
0023700 
0023800 
0023900 
0029000 
0029100 
0029200 
0029300 
0029900 
0029500 
0029600 
0029700 
0029800 
0029900 
0025000 
0025100 
0025200 
0025300 
0025900 
0025500 


DNOM=C .09+FM3)x(l.+2.*FM3*CMC-l. ) ) x ( 1 . + . 05XVF8/F3 > * ( 1 . + - 

1 . 0086XVF8/F3) 

SPLOS=197 .+10 . XALOGIOC ACRHOXDNUM/DNOM) 

SPLOSH=SPLOS-10 . XALOG10(RXRXFDOPX*EDOP) 

DO 11 L = 1 ,29 

STRUX=AL0G1GCCSTRUHXFCL) ) 

CALL TERPCDSHSPL,STRUX,1. ,1. ,ASTRU,1. , 1 . , 27 , 1 , 1 , DSPLX) 
SPLSHCCL)=SPLOSH-DSPLX 

11 CONTINUE 

12 IFCINOZ.EQ. 0) GO TO 19 
****** FOR COAXIAL JETS 

IF(IJ.HE.l.OR.KI.GT.l) GO TO 15 
IF( ANNHTF . GT . 0 .) GO TO 13 
DDF=SQRTC 1 .27329XC A F+ AC ) +DDPX* 2 > 

ANNHTF=CDDF-DPC)/2. 

ASSUMES CIRCULAR FAN ANNULUS, THIN INNER WALL 

13 IFCDHF.EQ.O. ) DHF = 2 . XANNHTF 
IF( J0UT.NE.9) GO TO 15 
IFCUNITS.EQ.SI) GO TO 19 

WR I T E C 6 , 9 7 ) AF,VF,TF,GAMMAF,GASRF,MDF,DHF, ANNHTF 
GO TO 15 
19 AFM=AF/1 0.76 

V FM = V F/3 . 28 
TFM=TF/1 .8 
GASRFM=GASRF/ . 1858 
DHFM=DHF/3 . 28 
ANNHTM-ANNHTF/3 . 28 

WRITE (6 , 9 7 ) AFM, VFM, TFM, GAMMA F , GASRFM , MDF , DHFM, ANNHTM 

15 TEF=TF-VFXVFX(1.-1 . /GAMMA F l/GASRF/69.9 
MF=VF/SQRT ( 32 . 2 *G AMMA FXG ASRFXT EF ) 

RHOF=PAMB/GASRF/TEF 

IFCMF.LT. 1. .OR. ABS(MF-MDF) .LT. .01) GO TO 18 
****** FOR SUPERSONIC FAN FLOW CUNDEREXPANDED) CALCULATE AS 
SEPARATE JET PLUS SHOCK NOISE. 

VMF=VF/C 

DF=SQRT( AFXl . 27329) 

EMMC = . 6 2 X VMF 

THETPF=THETAXVMFX* . 1 

USE THETF FOR INTERPOLATION, WHERE 1 1 0 . L E . THETF . L E . 18 0 
THETF=THETPF 

IFCTHETPF. GT . 180 . ) THETF=180. 

IFCTHETPF.LT.110.) THETF = 110 . 

VM= VMF 

IFCIFWD.EQ.O) GO TO 16 
VM = VMF* C 1 . -VI/VF)x* . 75 
EMMC = EMMCX CVF-VI ) / V F 

16 AFRHO=ACRHOXAF/AC 
VM3 5 = VMx* 3 . 5 

VC0R = VMX*9*VM3 5/C 1 . + . 0 1 x VMXVM3 5 ) 

SPL0F = 191 . +10 . XALOGIOC AFRHOXVCOR ) + C 3 0 . XVM35/C . 6 + VM35)-10 . )x- 
1 ALOGIOCRHOF/RHOAMB) +3. XALOGIOC . 1+2.XANNHTF/DF) 
FSTRUH=DF/VF*CTF/TAMB)X*( . 9X C 1 . +COS C THETPFx AR ) ) ) x ( DHF/DF ) x* . 9X FDOP 
FMACH = EMMC/ C 1 . + EMMCX * 5 ) x * . 2 

SPLOA = SPLOF-30. * AL OG1 0 C 1 . +FMACHX COS C TH ET Ax AR ) ) -20 . XALOGIO CR) 
FM3=CMF-1 . )XX3 

V F8 = VMFX *8 
F3=MF**3 

DHUM= 1 2 . 5XFM3XVF8 

DNOM=( .09+FM3)xCl.+2.XFM3x(MF-l. ) ) x C 1 . + . 05XVF8/F3 ) x ( 1 . + - 

1 . 0086XVFS/F3) 

SPLOS = 197. + 10. XALOGIOC AFRHOXDNUM/DNOM) 

SPLOSH = SPLOS-10. XALOGIO CRXRXFDOPXXEDOP) 

DO 17 L = 1 , 29 

STRUX=ALOG10CFSTRUHXF(L) ) 

CALL TERPC DSHSPL , STRUX, 1 .,1.,ASTRU,1.,1.,27,1 , 1, DSPSHX) 

CALL T ERP C DSP L, STRUX, THETF, I. , AS TRU , ATH ET , 1 . , 27 , 8 , 1 , DSPLX ) 

SPLSHFC L) =10. XALOGIOC 10. x*(. 1* C SPLOSH-DSPSHX ) ) + 1 0 .xx( . 1*- 
1 CSPLOA-DSPLX) ) ) 

17 CONTINUE 
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0025600 
0025700 ( 
0025800 
0025900 
0026000 
0026100 
0026200 
0026300 
0026900 
0026500 
0026600 
0026700 
0026800 
0026900 
0027000 
0027100 C 
0027200 C 
0027300 
0027900 
002750 0 
0 0276 0 0 
0027700 
0 027S00 
0 0 2 7 9 0 0 
0 0280 00 
0028100 
0028200 
0028300 
0028900 
0028500 
0028600 
0028700 C 
0028800 
0028900 
0029000 
0029100 
0029200 
0029300 
0029900 
0029500 
0029600 
0029700 
0029800 
0029900 
0030000 
0030100 
0030200 
0030300 C 
0030900 
0030500 
0030600 
0030700 
0030800 
0030900 
0031000 
0031100 
0031200 
0031300 
0031900 
0031500 
0031600 
0031700 
0031800 
0031900 
0032000 
0032100 
0032200 
0032300 
0032900 


GO TO 19 

xxxxxx FOR SHOCKFREE FAN FLOW 

18 ARATX=AF/AC 
ARATL=ALOG10C1.+ARATX) 

VRATX=VF/VC 

VRATR=1 ,-VRATX 
EM=1 . 1*SQRT C ARATX) 

IFCARATX.GE.29.7) EM = 6 . 

I FC VR ATR . L T . 0 . ) VRATR=0. 

SPL0R=SPL0R+5. #ALOG10(TC/TF)+10 . XALOG10C VRATRXXEM+1 . 2X- 
1 Cl.+ARATXXVRATXxVRATX)xx9/Cl.+ARATX)xx3) 

CALL TERPCSHIFT,ARATL,VRATX,1. , ARAT , VRAT , 1 . , 17 , 5, 1 , SHIFTX) 
CSTRUH=CSTRUH*TC/(TC-SHIFTX*TF) 

19 CMACH=EMMC/(1.+EMMCXX5)**.2 
GO TO 25 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

CALCULATIONS SHORTENED HERE FOR CONSTANT POWER AND AIRSPEED 

21 THETAP=THETAXVNCxx.l 
THET = THET AP 

IF( THETAP . GT . 180 . ) THET=180. 

IFCTHETAP.LT. 110. ) T H ET = 1 1 0 . 

CSTRUH=DC/VCX( TC/TAMB )xx( . 9X( 1 . +COS ( T HETAPXAR ) ) )XFDOP 
IFCIPLUG.EQ.l.OR.ISLOT.EQ.l) CS TRUH =CS TRU H x ( DHC/DC ) x x . 9 
IFCHC.LT.l. .OR.ABSCMC-MDO.LT. .01) GO TO 23 
SPLOSHES PLOS-10. XALOG10 (RXRXFDOPXXEDOP ) 

DO 22 L = 1 , 29 

STRUX = ALOG10 (CSTRUHXFC L) ) 

CALL TERR ( DSHSPL , STRUX, 1 . , 1 . , ASTRU , 1 . , 1 . , 2 7 , 1 , 1 , DSP LX ) 

SPLSHCC L ) =SPLOSH-DSPLX 

22 CONTINUE 

23 IFCINOZ.EQ.O) GO TO 25 

FOR COAXIAL JETS 

IFCMF.LT. 1 . .OR.ABS(riF-MDF).LT. .01) GO TO 25 

THEIPF=THETAXVMFXX.1 

THETF=THETPF 

IFC THETPF . GT . 180 . ) THETF=180 . 

IFCTHETPF.LT.110.) THETF=110. 

FSTRUH = DF/VFXC TF/TAMB )xxc . 9X ( 1 . +COS C TH ETPFX AR ) ) ) x C DHF/DF) xx . 9X FDOP 
SPLOA=SPLOF-30.XALOG10C1 . +FMACHXCOSC THETAXAR) )~20 .xALOG10CR) 

SPLOSH =SP LOS-10. XALOG10C RXRXFDOPXXEDOP) 

DO 29 L = 1 , 29 

STRUX = ALOG10C FSTRUHXFCL ) ) 

CALL TERPC DSHSPL, STRUX, 1 . , 1 . , ASTRU , 1 . , 1 . , 27 , 1 , 1 ,DSPSHX) 

CALL T ERP C DSP L, STRUX, THETF, 1 . , ASTRU , ATHET , 1 . , 27 ,8 , 1 , DSPLX) 
SPLSHFCL) = 10.XALOG10C10.xx(. 1 x C SP L OSH-DSPSHX ) ) + 10.xxC.lx- 
1 CSPLOA-DSPLX) ) ) 

29 CONTINUE 

xxxxxxxxx all CALCS RESUME HERE 

25 SPLOA=SPLOR-30 .XALOG10C1 .+CMACHXCOSCTHETAXAR) )-20 -XALOG10CR) 

DO 26 L = 1 , 29 

STRUX=ALOG10CCSTRUHXF(L)) 

CALL TERPC DSP L , STRUX, THET , 1 ASTRU , ATHET , 1 . , 27 , 8 , 1 , DSPLX ) 

26 SPLCL)=SPLOA-DSPLX 
SUM=0 . 

DO 28 L = 1 , 29 

PLEV = 10.xxC .1XSPLCL)) 

IFCMC.GE. 1 . .AND. ABSCMC-MDC) . GE. .01) PL EV=P L EV+1 0 . xx ( .1XSPLSHCCL)) 

IFCMF.GE. 1 . . AND. ABSCMF-MDF) .GE..01) PLEV=PLEV+10.XXC.1XSPLSHFCL)) 

PLEV=NENGXPLEV 

SUM=SUM+PLEV 

5PL(L)=10. XALOG10CPLEV) 

TPCL)=TPCL)+PLEV 
28 CONTINUE 

IFCJOUT. EQ. 0) RETURN 
OASPL=10 .XALOG10CSUM) 

PNL=PERNOY(SPL ) 

PNLT=PNL+TONECSPL) 

IFCJOUT. EQ.l) WRITEC6,93) C SPL C L ) , L = 1 , 29 ) , OASPL , PNL , PNL T 
IFCJOUT. NE. 2) RETURN 
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0 0 52500 
0032600 
0032700 
0052800 
0032900 
0033000 
0 0 331 00 
0 0 33200 
0 03330 0 
0033400 
0033500 
0033600 
0033700 
0033800 
0033900 
0034000 
0034100 
0034200 
0034300 
0034400 


I F ( UN ITS . EQ . ENG ) WRITE(6,94) X, Y, TAU , OASPL , PNL , PNLT 
XM=X/3 . 28 
YM=Y/3 . 28 

IFCUNITS. EQ . S I ) WRITE(6,94) XM, YM ,TAU, OASPL, PNL, PNLT 
RETURN 

93 FORMAT ( 8 H JET : , 1 7 F7 . 1/8X , 7 F7 . 1 , 2 IX , 8H OASPL =,F7.1,6H PNL = ,- 

1 F7 . 1 , 7H PNLT = , F7 . 1 ) 

94 FOR MAT (9 H JET : , 2 F8 . 1 , F8 . 3 , 3 F8 . 1 ) 

95 FORMAT C ' INPUT PARAMETERS: NOZZLE TYP E( SIMPL E= 0 , CO AX = 1 )( INOZ ) ='- 

1 ,11,'; IPLUG= , ,I1, ’ ; ISLOT=’ , II, ' ; FWDVEL EFFECTS ( I FWD ) = ' , 1 1 , - 

2 1H; ,/20X, ' AREACSQ FT) VEL(FPS)- 

3 TEMP(R) GAMMA GAS CONST DES MACH # HYD DIA(FT) ANN- 

4UL HT(FT) FUEL ( «/S ) ’ , / 1 OX , 5HC0R E : , 7X , F6 . 3 , 2 C 6X , F6 . 1 ) , 6 ( 5X , F7 . 3 ) ) 

96 FORMAT ( ' INPUT PARAMETERS: NOZZLE T YPE ( S IMP L E= 0 , CO AX = 1 ) ( I NOZ ) = f - 

1 ,11,’; IPLUG=’ ,11, ’ ; ISLOT=’ , II, * ; FWD VEL EFFECTS ( I FWD) =* ,11 , - 

2 1H; ,/20X, 'AREACSQ M) VEL(M/S)- 

3 TEMP(K) GAMMA GAS CONST DES MACH # HYD DIA(M) ANN- 

4UL H T ( M ) FUEL(KG/S)',/10X,5HCORE : ,7X,F6.3,2(6X,F6.1),6(5X»F7.3)) 

97 FORMAT C 1 OX, 5HFAN : , 7X , F6 . 3 , 2 ( 6X , F6 . 1 ) , 6 ( 5X , F7 . 3 ) ) 

END 


Subroutine CORE 


0000100 c 

0000200 C 
0000300 C 
0000400 C 
0000500 C 
0000600 C 
0000700 C 
0000800 C 
0000900 C 

0001000 c 
0001100 c 

0001200 C 
0 0 0 1 3 0 0 
0 00 1400 
0001500 
0001600 
0 0 0170 0 
0001800 
0 0 0 1 90 0 
00020 00 
00021 00 
0002200 
0002300 C 
0002400 C 
0002500 C 
0002600 C 
0002700 C 
0002800 C 
0002900 C 
0003000 C 
0003100 C 
0003200 C 
0003300 
0003400 
0003500 
0003600 
0003700 
0003800 
0003900 
0004000 
0004100 C 
0004200 
0004300 
0004400 
0004500 


SUBROUTINE FOR LOW-FREQ CORE NOISE CALCULATION 

BASED ON TMX-71627 OF HUFF, OR GE-FAA EQN OF FAA-RD-77-4 

CALLED BY NOIS OR RADIUS 
CALLS SUBROUTINES T ERP , P ERNOY , TONE 
INFLOW: TP , F, UNITS, I OUT, FDOP, T AMB , P AMB , N ENG , ISUPP 
R, THETA, X,Y, TAU, IJ.KI, FUEL, W CORE, P3,T3,T4 
RETURNS: TP , SP L , 0 ASP L , PN L , P N L T 

REQUIRES PARAM INPUT OF AWCORE , AP3 , AT4 (OR AFUEL) 

OPTIONAL AT3 , AT4 (IF FUEL SUPPLIED) 

SUBROUTINE CORE 

DIMENSION AFIG1(15),ATHET(15),AFIG2(12) , AFREQ ( 1 2 ) , CSUPP ( 24 ) , - 
1 ATDEL( 9,4) ,AFAR(9) ,AT3R(4) 

CO MMON/GEOM/R, THETA, THETAF,THETAH, PHI, VIEW, HEAD, PSYI,FLAPI,EPPI,- 
1 VI ,X,Y,TAU, I J,KI 

COMMON/SPECT/TP (24) ,SPL(24) , F(24) , OASPL ,PNL , PNLT 
COMMON/P ARAM/ VC, V F , TC , T F , FU EL , W A FAN , RPM , T I PM , T I PM2 , DEL T , FPR,- 
1 WCOR E , P 3 , T3 , T4 

COMMON UNITS, ISKIP,IOUT(3), I R E V , I L G , FDOP , C , T AMB , P AMB , RH , N ENG , I SUP P 
N AMEL I ST/COR EDA/ J OUT, I SUPPR, CSUPP, GAMMA, DTEMD, IMOD, EDO P 

VALUES OF AT3 , AP 3 , AT 4 , AND AWCORE (& AFUEL) ARE ENTERED AS 
ARRAYS IN PARAM OF CALLING PROGRAM. 

ISUPPR = 1/0: (Y/N, SUPPRESSION TO BE APPLIED TO PREDICTION) 

FLSUPP = SUPPRESSION SPECTRUM 

EDO P = EXPONENT FOR SOURCE MOTION (DOPPLER) AMPLIF. ( DEFAULT=2 . ) 
GAMMA ASSUMED =1.4 UNLESS SUPPLIED IN COREDA - REQUIRED FOR 
CALCULATION IF AT 3 VALUES NOT SUPPLIED IN PARAM 
XXXFOR MODIFIED PREDICTION (1/18/77) (BASED ON GE-FAA 
EQUATION), SET IMOD=l, AND SUPPLY VALUE OF 
DESIGN TURBINE DELTA T, ( DT EMD= T4 ( D ) - TC ( D ) ) , IN COREDA 
DATA AFIG1/32. 5, 2 9. 5, 26. 7, 25. 1,24. 1,23. 3, 22. 4, 19. 7, 18. 9, 18. 6,- 
1 18.6,18.7,19. ,19.2,19./ 

DATA ATHET/0., 20. ,40. ,50. ,60. ,70. ,80. ,100. ,110. ,120. ,130. ,140.,- 
1 160. ,180. ,200./ 

DATA AFIG2/33 . ,26. 5, 18. 7, 12. 8, 10. 9, 10. 2, 10. ,10. 5, 11. 3, 14.2,- 
1 19.8,30 ./ 

DATA A FREQ/- 1 .222,-1 . , - . 6 99 , - . 398 , - . 222 , - . 0 97 , 0 . , .176, .301,- 
1 .602,1. ,1.602/ 

DATA FOR INTERPOLATING FOR T4 
DATA AT3R/460. ,1060. ,1660. ,2260./ 

DATA AFAR/.l, .2, .3, .4, .5, .6, .65, .7, .75/ 

DATA AT DEL/740., 1390. ,1970. ,24 90. ,2 98 0. , 3420 , 358 0., 36 60. , 36 00.,- 
1 670. ,1280. ,1830. ,2330. ,2770. ,3150. , 3280 . ,3360. ,3330.,- 
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0004600 
0004700 
0004800 
0004900 C 
0005000 
0005100 
0005200 
0005300 
0005400 
0005500 
0005600 
0005700 
0 0 0 58 0 0 
0005900 
0006000 
0006100 
0006200 
0006300 
0006400 
0006500 C 
0006600 
0006700 
0006800 
0006900 
0007000 
0007100 
0007200 
0007300 
0007400 
0007500 
0007600 
0007700 
0007800 
0007900 C 
0008000 
0008100 
0008200 
0003300 
0008400 
0008500 
0008600 
0008700 
0003800 
000S900 C 
0009000 
0009100 
0009200 
0009300 
0009400 
0009500 
0009600 
0009700 
0009800 
0009900 
0010000 
0010100 
0010200 
0010300 
0010400 
0010500 
0010600 
0010700 
0010800 
0 0 1 090 0 
00 1 1 0 00 
0011100 
0011200 
0011300 
0 0 11400 


2 630. ,1190. ,1700. ,2160. ,2560. , 28 60. ,2950. ,3010. ,3020.,- 

3 570., 1110., 157 0., 1990. , 2320. , 253 0 . , 26 0 0 . , 26 4 0 . , 266 0 . / 

DATA SI , ENG/2HS I .3HENG/.AR, EDOP/. 0174533,2./, IMOD/Q/ 

IFCIJ.NE.l.OR.KI.GT.l) GO TO 5 
IFCKI.EQ.O) GO TO 1 
GAMMA =1 . 4 
JOUT=IOUT Cl) 

ISUPPR=ISUPP 
READ( 5 , COREDA ) 

GAMR AT = 1 . -1 ./GAMMA 

IFCUNITS. EQ.SI) DTEMD=DTEMD#1 .8 

1 IFCJ0UT.NE.4) GO TO 5 
IF(IMOD.EQ.l) WRI TEC6 , 92 ) 

IFCT3.LT. .1) T3=TAMB*(P3/PAMB)**GAMRAT 
IFCT4.GT. .1) GO TO 2 
FAR=FUEL/CWCORE~FUEL ) 

CALL TERPCATDEL, AFAR, AT3R, FAR, T3,l. , 9,4,1, TDEL) 

T4=T3+TDEL 

PRECEDING FOR CALC T3 & T4 INPUT VALUES FOR RADIUS 

2 IFCUNITS. EQ.SI) GO TO 3 

WRITEC 6 , 95 ) T3 , T4 , P3 , WCORE , DT EMD 
GO TO 4 

3 T3M=T3/1 . 8 
T4M=T4/1 .8 
P3M=P3/ .02089 
WCOREM-WCORE/2.205 
DTEMDM=DTEMD/1 .8 

WRITEC6 , 96) T3M , T4M , P3M , WCOREM, DTEMDM 

4 IFC ISUPPR . EQ . 1 ) WRITEC6 , 99) C CSUPP C L ) , L =1 , 24 ) 

5 CALL TERPCAFIGl , THETA , 1 . , 1 . , ATHET, 1 . , 1 . ,15, 1 , 1,FIG1) 

IFCT3.LT.. 1) T3=TAMB*CP3/PAMB)**GAMRAT 
IFCT4.GT.0. ) GO TO 7 

TO CALC T 4 FROM FUEL/AIR 
IFC FUEL .GT . 0 . ) GO TO 6 
WRITEC6, 100) 

STOP 

6 FAR = FU EL/ C WCORE- FUEL) 

CALL TERPC ATDEL , AFAR, AT3R, FAR, T3, 1 . ,9, 4,1, TDEL) 

T4=T3+TDEL 

7 SPL0A = 56 . 5-FIG1 + 10 . * AL OG1 0 C NENG*WCORE* C C T4-T3 ) *P3*TAMB/PAMB/T3/- 
1 Rx 3 . 28 ) XX2/FD0PXXED0P ) 

IFC IMOD. EQ. 1 ) SPL0A=SPL0A+114 .5-40 .XALOGIOCDTEMD) 

CLEVELS UNCHANGED IF DTEMD=728.62 DEG R) 

FR EQP = 7 4 0 . XSQRT C P3/WC0R E/21 1 6 . XSQRTC518.7/T4)) 

IFC FREQP.LT. 300. . OR . FREQP . GT . 1 0 0 0 . ) FREQP=400. 

FREQP=FREQP/FDOP 

8 SUM=0. 

DO 9 L = 1 , 24 

FREQ=ALOG10CFCL)/FREQP) 

CALL TERPC AFIG2, FREQ, 1 . , 1 . , A FREQ, 1 . , 1 . ,12, 1 , 1,FIG2) 
SPLCL)=SPLOA-FIG2 

I FC ISUPPR. EQ.l) SPLCL)=SPLCL)-CSUPPCL) 

PLEV=10 . xx C . 1XSPLCL ) ) 

SUM=SUM+PLEV 

9 TPCL)=TPCL)+PLEV 
IFCJOUT.EQ.O) RETURN 
OASPL=10 . XALOGIOCSUM) 

PNL=PERNOYCSPL ) 

PNLT=PNL+TONECSPL) 

IFC J OUT . EQ . 1 ) WRITEC6,93) C SPL C L ) , L = 1 , 24 ) , 0 ASPL , PNL , PNL T 
IFCJ0UT.NE.2) RETURN 

IFCUNITS. EQ. ENG) WRITEC6,94) X , Y , TAU , 0 ASPL , PNL , PNLT 
XM Z X/ 3 . 28 
YM=Y/3 . 28 

IFCUNITS. EQ.SI) WRITEC6,94) XM, YM, TAU , OASPL , PNL , PNLT 
RETURN 

92 F0RMATC22X, ’MODIFIED NOISE LEVEL PREDICTION') 

93 FORMAT C 8H CORE : , 1 7 F7 . 1/8X , 7 F7 . 1 , 21X , 8H OASPL =,F7.1,6H PNL =,- 
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0011500 1 F7.1,7H PNLT =,F7.1) 

0011600 94 FORMAT ( 9H CORE : , 2F8 . 1 , F8. 3, 3F8 . 1) 

0011700 95 FORMATdX, ’INPUT PARAMETERS: COMBUSTOR INLET TEMP CT3) =»,F6.1,- 

0011800 1 ' DEG R; EXHAUST TEMP (T4) =',F6.1,' DEG R ; ’/I OX , ' INL ET PRESS- 

0011900 2 ( P3 ) =’,F7.1,' PSF ; CORE MASS FLOW (WCURE) =*,F6.1,' LB/S; - 

0012000 3 DESIGN TURBINE DELTA T (DTEMD) =»,F6.1,' DEG R’) 

0012100 96 FORMATC1X, » INPUT PARAMETERS: COMBUSTOR INLET TEMP (T3) =',F6.1,~ 

0012200 1 ' DEG K ; EXHAUST TEMP (T4) =*,F6.1,' DEG K; '/10X, ’ INLET PRESS- 

0012300 2 (P3) = 1 , F9 . 1 , ' N/SQ M; CORE MASS FLOW (WCORE) = • , F6 . 1 , ' KG/S; - 

0012400 3 DESIGN TURBINE DELTA T (DTEMD) =»,F6.1,’ DEG K') 

0012500 99 FORMATC IX, 'CORE SUPP : * , 24F5 . 1// ) 

0012600 100 FORMATC INADEQUATE DATA IN PARAM INPUT - SUPPLY AT4 OR AFUEL- 

0012700 1 FOR COREN CALC.') 

0012800 END 


Subroutine TURB 


0000100 c 

0000200 C 
0000300 C 
0000400 C 
0000500 C 
0000600 C 
0000700 C 
0000800 C 
0000900 C 

0001000 c 
0001100 c 
0001200 c 

0001300 
0 001400 
0001500 
0001600 
0001700 
0001800 
0001900 
00 02000 
0002100 
0002200 
0002300 
0002400 C 
0002500 C 
0002600 C 
0002700 C 
0002800 C 
0002900 C 
0003000 C 
0003100 C 
0003200 C 
0003300 
0003400 
0003500 
0003600 
0003700 
0003800 
0003900 
0004000 C 
0004100 
0004200 
0004300 
0004400 
0004500 C 
0004600 
0004700 
0004800 
0004900 
0005000 
0005100 


SUBROUTINE TO CALCULATE THE TURBINE NOISE 
BASED ON KREJSA'S (BOEING) ANOP PREDICTION (TMX-73566) 

CALLED BY NOIS OR RADIUS 

CALLS SUBROUTINES TERP, PERNOY, TONE 

INFLOW: TP,F,UNITS,I0UT,FD0P,NENG,ISUPP,F1,F2,F3,F4 

R, THETA, X,Y,TAU,IJ,KI, RPM, WCORE, TURTS , TCTUR 
RETURNS: TP , SP L , 0 ASP L , PN L , PN L T 

REQUIRES INPUT OF ATCTUR (OR ATC), ARPM, AWCORE IN PARAM, 
OPTIONAL INPUT OF ATURTS 

SUBROUTINE TURB 

DIMENSION AFIG5A(9) , AFIG5B(9) ,ATHET ( 9) ,TSUPP(24) ,SUP(24) , - 
1 DP (24) ,ATM150(24) 

COMMON/GEO M/R, THETA, THETAF,THET AH, PHI, VIEW, HEAD, PSY I, FLAPI,EP PI, - 
1 VI,X,Y,TAU,IJ,KI 

COMMON/SPECT/TP( 24 ) , SPL ( 24 ) , F( 24 ) , OASPL , PNL , PNL T , FI , F2 , F3 , F4 
COMMON/P ARAM/ VC, VF , TC , TF , FUEL , WA FAN , RPM , T I PM, T IPM2 , DEL T , FPR , - 
1 WCORE, P3,T3,T4, TURTS, TCTUR 

COMMON UNITS, ISKIP , IOUT (3) , IREV , ILG,FDOP,C,TAMB,PAMB ,RH,NENG, ISUPP 
NAMELIST/TURBDA/JOUT,ISUPPR,TSUPP,TBNDIA, GEAR, CS, NBLR, ITYPTB,- 
1 EDOP 

NBLR : NUMBER OF ROTOR BLADES; 

GEAR: FAN RPM/TURBINE RPM; 

CS: STATOR CHORD TO ROTOR SPACING (USUALLY >100. X); 

TBNDI A : DIAM OF LAST STAGE TURBINE IN M( FT ) ; 

ITYPTB = 0 : TURBOJETS, OR FANS WITH COPLANAR EXITS 

l: TURBOFANS WITH CORE EXIT AHEAD OF FAN EXIT, IE., JT8D 
ISUPPR = 1/0 (Y/N SUPPR. SPECTRUM SUPPLIED FOR TURBINE EXHAUST) 
TSUPP: SUPPRESSION SPECTRUM; 

EDOP = EXP. ON SOURCE MOTION (DOPPLER) AMPLIF. ( DEFAULT=4 . ) 

DATA AFIG5A/21 . ,13. ,7. ,4. ,1.3,0. ,1.3,8. 7,19./ 

DATA AFI G5B/27 .5,18. ,10., 6., 2. 4,0., 2. 2, 14., 26./ 

DATA ATHET/40 .,60. ,80. ,90. ,100. ,110. ,120. ,140. ,160./ 

DATA Cl, C2/1. ,-2.0176/ 

DATA ATM150/7*1 . ,5*1.023,2*1.047,1.072,1.096,1.122,1.148,1.202,- 
1 1.318,1.38,1.585,1.95,2.63/ 

DATA SI, ENG/2HSI,3HENG/,AR, EDOP/. 0174533,4./ 

IF(IJ.NE.l.OR.KI.GT.l) GO TO 5 
IF(KI.EQ.O) GO TO 1 
ISUPPR=ISUPP 
JOUT=IOUT(l) 

READ( 5 , TURBDA ) 

1 IF( J0UT.NE.4) GO TO 3 

I F( TURTS . LT . .1) TURTS= . 036652*GEAR*RPM*TBNDI A 
IF( UNITS. EQ.SI) GO TO 2 

WRITEC6, 95) TCTUR , TURTS , WCORE, RPM, GEAR, TBNDI A , NBLR , CS , I TYPTB 
GO TO 3 
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ill min iiniiiiiii min i ilium 


■ ii 


mu in mu i mini 11111111111111 ii ■mi 


0005200 
0005300 
0005400 
0005500 
0005600 
0005700 
0005800 
0005900 
0006000 
0006100 C 
0006200 
0006300 
0006400 
0006500 
0006600 
0006700 
0006800 
0006900 
0007000 
0007100 
0007200 
0007300 
0007400 
0007500 
0007600 
0007700 
0007800 
0007900 
0008000 
0008100 C 
0008200 
0008300 
0008400 
0008500 
0008600 
0008700 
0008800 C 
0003900 
0009000 
0009100 
0009200 
0009300 
0009400 
0009500 
0009600 
0009700 
0009800 
0009900 
0010000 
0010100 
0010200 
0010300 
0010400 
0010500 
0010600 
0010700 
0010800 
0010900 
0011000 
0011100 
0011200 
0011300 
0011400 
0011500 
0011600 
0011700 
0011800 
0011900 
00120 00 


2 TCTURM=TCTUR/1 .8 
TURTSM=TURTS/3.28 
WC0REM=WCORE/2.205 
TBNDIM=TBNDIA/3.28 

WRITEC6, 961 TCTURM, TURTSM, WCOREM, RPM , GEAR , TBNDIM, NBLR, CS , ITYPTB 

3 I F( ISUPPR . NE . 1 ) GO TO 5 

IFCJ0UT.EQ.4) WRITEC 6,97) ( TSUPP ( L ) , L =1 , 24 ) 

DO 4 L =1 > 24 

4 SUPCL) = 10.x*CTSUPPCL)/10. ) 

5 RPMT =GEAR#RPM 
BPF=RPMT*FLOATCNBLR)/60./FDOP 
IFCTURTS.LT. .1) TURTS = . 036652*RPMT*TBNDIA 

6 CLR=48.5*SQRTCTCTUR)/1116. 

RSQ=R*R/22500 . 

BB=WC0RE*NENG/RSQ/CLRXX3/FD0PX*ED0P 

7 TONEL=BB*CS*TURTS*x .6^3981 . 07 
BB-BBXTURTSXX3/10 • 

IFC ITYPTB .EQ.l) TONEL=TONEL/10 . 

CALL TERPCAFIG5A, THETA, 1. , 1 . , ATHET , 1 . , 1 . , 9 , 1 , 1 , FIG5A ) 

CALL TERPC AFIG5B, THETA, 1 . , 1. , ATHET, 1 .,1.,9,1,1,FIG5B) 
BB=BB/10.XXCFIG5A/10. ) 

T0NEL=T0NEL/10.*X(F1G5B/10. ) 

DO 8 L=l,24 
FRAT -BPF/FC L ) 

IFCFRAT.GT. 1.12201845. OR.FRAT.LT. .89125094) GO TO 8 
CF=F(L) 

GO TO 9 

8 CONTINUE 

IF BP F > 10 KHZ, USE BPF FOR CF OF PEAK BROADBAND 
CF=BPF 

9 DO 10 L = 1 , 24 
FREQ=F( L )/CF 

IFCFREQ. LE. 1 . ) SPEC=FREQXXC1 
IFCFREQ.GT.l. ) SPEC=FREQ^^C2 

10 DP(L)=BB*SPEC 

xxxxxx TONE SPECTRUM CALCULATION 
DO 11 IH=1,4 
TONEH=TONEL/10.xx(IH-l) 

DO 11 L = 1 , 24 
FRAT=BPFXFLOAT(IH)/F(L) 

FR = 1 . 

IFCFRAT.GT.F4.0R.FRAT.LT.F1) GO TO 11 
IFC FRAT . GT . F3 ) FR = C F4- FRAT )/ C F4- F3 ) 

IFC FRAT. LT. F2) FR=C FRAT-F1 )/C F2-F1 ) 

DPCL)=DPCL)+TONEH*FR 

11 CONTINUE 
SUM= 0 . 

DO 12 L=l,24 
DPCL)=DPCL)XATM150CL) 

IFC ISUPPR. EQ.l) DPCL)=DPCL)/SUPCL) 

SUM-SUM + DP C L ) 

SPLCL )=10 .XALOGIOCDPCL) ) 

12 TPCL)=TPCL)+DPCL) 

IFCJOUT.EQ.O) RETURN 
OASPL=10.*ALOG10CSUM) 

PNL=PERNOYCSPL) 

PNLT=PNL+TONECSPL) 

IFC JOUT .EQ.l) WRITEC6 , 93 ) C SPL C L ) , L =1 , 24 ) , OASPL , PNL , PNLT 
IFCJ0UT.EQ.2) WRIT E C 6 , 94 ) X , Y , TAU , 0 ASPL , PNL , PNL T 
RETURN 

93 FORMAT C 8H TURB : , 17F7 . 1/8X, 7F7 . 1 , 21X , 8H OASPL =,F7.1,6H PNL =,- 
1 F7 . 1 , 7H PNLT =,F7.1) 

94 FORMAT C 9H TURB : , 2F8 . 1 , F8 . 3 , 3F8 . 1 ) 

95 FORMAT C ' INPUT PARAMETERS: EXIT TEMP CTCTUR) = ' , F6 . 1 , ' DEG R;- 

1 ROTOR TIP SPEED CTURT5) = , ,F6.1,’ FPS; MASS - 

2FL0W CWCORE) =',F7.3,6H LB/S /5X, ’ FAN SPEED CRPM) =',F6.0,’ RPM 

3 TURBINE/FAN SPEED CGEAR) =',F5.2,- 

4 DIAMETER CTBNDIA) =',F6.3, T FT; NO. BLADES CNBiR) =',I3,- 
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0012100 

0012200 

0012300 

0012400 

0012500 

0012600 

0012700 

0012800 

0012900 

0013000 

0013100 


5 1H;/5X, 'STATOR CHORD/ROTOR SPACING (CS) =',F5.1,’X; TYPE- 

6 (SHORT CORE DUCT=1 , COPL ANAR OR TURBOJET=0 ) CTYPTB) =',111 

96 FORMAT ( ' INPUT PARAMETERS: EXIT TEMP (TCTUR) = ' , F6 . 1 , ' DEG K;- 

1 ROTOR TIP SPEED (TURTS) = ’ , F6 . 1 , ’ M/S; MASS - 

2 FLOW (WCORE) =’,F7.3,6H KG/S /5X ,' FAN SPEED (RPM) =',F6.0,’ RPM;- 

3 TURBINE/FAN SPEED (GEAR) =',F5.2,- 

4 '; DIAMETER (TBNDIA) = ' , F6 . 3 , ’ M; NO. BLADES ( NBLR) =',I3,- 

5 1H;/5X, ’STATOR CHORD/ROTOR SPACING (CS) =’,F5.1,'X; TYPE- 

6 (SHORT CORE DUCT=1 , COPLANAR OR TURBO J ET=0 )( TYPTB ) =’,I1) 

97 FORMAT ( ’ TURB SUPP : ’ , 24F5 . 1// ) 

END 


Subroutine FLAP 


0000100 c 

0000200 C 
0000300 C 
0000400 C 
0000500 C 
0000600 C 
0000700 C 
0000800 C 
0000900 C 
0001000 c 
0001100 c 

0001200 C 

0001300 

00 0 140 0 

0001500 

0001600 

0001700 

0001800 

000 1 900 

0002000 

0002100 

0002200 

0002300 

0002400 

0002500 C 

0002600 C 

0002700 C 

0002800 C 

0002900 C 

0003000 C 

0003100 C 

0003200 C 

0003300 C 

0003400 C 

0003500 C 

0003600 C 

0003700 C 

0003800 C 

0003900 C 

0004000 C 

0004100 C 

0004200 

0004300 

0004400 

0004500 

0004600 

0004700 

0004800 

0004900 

0005000 

0005100 

0005200 

0005300 

0005400 


SUBROUTINE FOR FLAP NOISE CALCULATION 
(OR JET/FLAP INTERACTION NOISE) 

BY DORSCH ET AL ANOP PREDICTION PROCEDURE (TMX-71768) 

CALLED BY NOIS OR RADIUS 

CALLS SUBROUTINES TERP, PERNOY, TONE 

INFLOW: TP, FP , UNITS , IOUT , FDOP , NENG , ISUPP 

R, THETA, THETAF, PHI, PSYI, VI, X,Y,TAU,IJ,KI» VC,VF 
RETURNS: TP , SPL , OASPL , PNL , PNLT 

REQUIRES PARAM INPUT OF AVC FOR CORE, A VF FOR FAN FLOW 

SUBROUTINE FLAP 

DIMENSION DSPL(29, 3,2) ,D0SPL(29,2,2) ,ASTRU(29) ,APSY(3,2) , APHI ( 2 ) , - 

1 BETA(25,3),CAY(25,2),DTHEI(25,3),D0THET(25,2),ATHET(25),- 

2 DPHI(13),A0PHI(13),A0PSY(2,2) 

DIMENSION Cl (3) ,C2(3) ,C3(3) , FLSUPP(24) 

COMMON UNITS, I SKI P , IOUT (3) , I REV , I LG , FDOP , C , TAMB , P AMB , RH , N ENG , I SUPP 
COMMON/ GEOM/R , THETA, THETAF, THETAH, PHI, VIEW, HEAD, PSYI, FLAPI,EPPI,- 
1 VI,X,Y,TAU,IJ,KI 

C0MM0N/SPECT/TP(24) , SPL (24) ,F( 24), OASPL, PNL, PNLT 
COMMON/PARAM/VC, VF 

NAMELIST/FLAPDA/JOUT, IUOTW, INOZ, IFWD, INSENS, AC1 ,AF1,BPR,WINGD,- 
1 ISUPPR,FLSUPP,EDOP 

IUOTW h 1/0: OVER-THE-WING/UNDER-THE-WING CONFIGURATION 

IFWD = 1/0: (Y/N, FORWARD VELOCITY EFFECTS ON SOURCES) 

INSENS = 1/0= (Y/N, NOISE LEVELS REL. INSENSITIVE TO FLAP 

ANGLE - AS 3-FLAP DATA) 

AC1 , AF1 □ CORE AND FAN EXHAUST AREAS (IN SQ M(SQ FT)) 

BPR = BYPASS RATIO (FOR MIXED FLOW COAXIAL) 

WINGD = RATIO OF WING CHORD TO TOTAL NOZZLE DIAM (USE ONLY 
FOR LARGE BPR CORRECTION) 

INOZ=0 : SINGLE NOZZLE EXHAUST (REQUIRES ONLY AC1 INPUT IN 

FLAPDA AND AVC IN PARAM) 

= 1 : COAXIAL NOZZLE, UNMIXED (REQUIRES AC1 AND AF1 IN 

FLAPDA AND AVC AND AVF IN PARAM) 

=2= COAXIAL NOZZLE, MIXED (REQUIRES AC1, AF1 , AND BPR IN 
FLAPDA, AND AVC AND AVF IN PARAM) 

ISUPPR = 1/0: (Y/N, SUPPRESSION TO BE APPLIED TO PREDICTION) 

FLSUPP □ SUPPRESSION SPECTRUM 

EDOP h EXP. ON SOURCE MOTION (DOPPLER) AMPLIF. (DEFAULT = 4. ) 

DATA DSPL/41 . ,34. ,27. ,24. ,21. 5, 17. ,14. 4, 12, 7, 11. 5, 10. 6, 10. ,9.8,- 

1 2X9. 7, 9. 9, 10. ,10. 1,10. 2, 10. 6, 11. ,11. 5, 12. 7, 16. 6, 18. 5, 21. 5, 25. 4,- 

2 29.4,33.1,38.,- 

346 .. 39..32..29.6.27..23..19.8.16.9.14.9.12.2,10.6,10.,9.3,9.,8.9,- 

49. 1.9. 4. 9. 7. 10. . 10. 5. 10. 9. 11. 9. 15. 7. 17. 9. 20. 7. 24. 5. 23. 4. 32. .37.2,- 

553. . 47. .38. .35. .32. .28. .24. .21. 2. 18. .15. .12. 5. 11. 4. 10. 7. 10. 1.9.8, - 
6 9. 2, 2X9. 1, 9. 3, 9.6 , 9. 9, 11 ., 15. , 17 . 1 ,20 . ,24. ,27 .8,31 .6,36 .8, - 

742. . 37. .31. 7. 29. 6. 28. .25. .22. 5. 20. 8. 19. .16. 6. 14. 5. 13. .11. 3.10.,- 

8 8. 9, 8. 4, 8. 2, 8. 5, 9. ,9.4,10. ,11. ,14.5,16.4,19. ,22.3,25.6,29. ,33.5,- 
942. ,37 . ,31.7,29.6,28. ,25. ,22.5,20.8,19. , 16.6,14.5,13. ,11.3,10. ,- 
1 8. 9, 8. 4, 8. 2, 8. 5, 9. ,9. 4, 10. ,11. ,14. 5, 16. 4, 19. ,22. 3, 25. 6, 29. ,33.5,- 

242. . 37. .31. 7. 29. 6. 28. .25. .22. 5. 20. 8. 19. .16. 6. 14,5, 13. ,11. 3,10.,- 

3 8. 9, 8. 4, 8. 2, 8. 5, 9., 9. 4, 10., 11., 14. 5, 16. 4, 19., 22. 3, 25. 6, 29., 33. 5/ 
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0005500 
0005600 
0005700 
0005800 
0005900 
0006000 
0006100 
0006200 
0006300 
0006400 
0006500 
0006600 
0006700 
0006800 
0006900 
0007000 
0007100 
0007200 
0007300 
0007400 
0007500 
0007600 
0007700 
0007800 
0007900 
0008000 
0008100 
0008200 
0008300 
0008400 
0008500 
0008600 
0008700 
0003800 
0003900 
0009000 
0009100 
0009200 
0009300 
0009400 
0009500 
0009600 
0009700 C 
0009800 
0009900 
0010000 
0010100 
0 0 1 020 0 
0010300 
0010400 
0010500 
0010600 C 
0 0 1 0700 
0010800 
0010900 
0 0 1 1000 
0011100 
0011200 
0011300 C 
0011400 

0 0 1 150 0 
0011600 

001 1700 
0011800 
0011900 
00120 00 
0012100 
0012200 
0012300 


DATA DOSPL/2 3. ,17. 2, 12. ,10. 5, 10. 2, 10. 5, 11. 4, 12. ,12. 3, 12. 4,12.,- 

1 11. 3, 10. 9, 2X10. 3, 11., 11. 5, 12. 1,13., 13. 6, 14., 15. 1,18. 7, 20. 8, 23. 2, 

2 27.2,31.5,36.1,43.,- 

32 1.4, 16. 1,11. 1,10. 2, 10. ,11. 4, 12. 7, 13.5, 2*13. 8, 13. 3, 12. 8, 11.9,- 

4 11. 4, 2XH. 1,11. 3, 11. 7, 12. ,12. 5, 13. ,13. 8, 16. 8, 18. 7, 21. 4, 25. ,29. 2, 

5 34 . 41. - 

633. ,29. ,25. ,24. ,23. ,21. 2, 19. 9, 18. 8, 17. 8, 16. 4, 15. 3, 14. 4, 13. 7, 12. 8, 

7 11. 8, 10. 9, 10., 9. 7, 9. 2, 9. 1,9. 3, 10. ,13. 1,15. 5, 18 .4, 22. 8, 27. ,31.3,- 

8 37.1,- 

933. ,29. ,25. ,24. ,23. ,21. 2, 19. 9, 18. 8, 17. 8, 16. 4, 15. 3, 14. 4, 13. 7, 12. 8, 

1 11. 8, 10. 9, 10. ,9. 7, 9. 2, 9. 1,9. 3, 10. ,13. 1,15. 5, 18. 4, 22. 8, 27. ,31.3,- 

2 37.1/ 

DATA ASTRU/-1. 456, -1.30 1,-1. 155, -1.0 97, -1.046, -.959, -.886, -.824,- 

1 -. 77, -0.699, -.6 38, -.585, -.538, -.481, -.42, -.347, -.301, -.252,- 

2 -.194, -.143, -.097,0. ,.301, .477, .699,1. ,1.301, 1.602, 2./ 

DATA APHI/0 . , 90 ./ 

DATA APSY/0 . ,20. ,60. ,0. ,20. , 6 0 . / , AOPSY/2 0 . ,60. ,20. ,60./ 

DATA ATHET/0 . , 10. ,20. ,30. ,40. ,50. ,60. ,70. ,80. ,90. ,100. ,110. ,120., 
1 130. ,140. ,145. ,150. ,155. ,160. ,165. ,170. ,175. ,180. ,185. ,190./ 

DATA DTHET/-4 ., -3., -2., -1.,-. 6, -.1,8*0. ,.2, .6, 1.2, 1.8, 2.6,- 

1 3. ,2.5,1. ,0.,. 6,1.,- 

2 -2. 6,-1. 9,-1. ,-.6, -.25, -.1,8*0. ,1., 1.5,0. ,-2.3, -5. ,-5.3,- 

3 -4. 7, -2. 4, -.7, 2. ,3. , - 

4 -. 7, .2, .9, 1.5, 2. ,2. 1,2. ,1.8, 1.2,0. ,-1.3, -3. 8, -6. ,-5.7, -3.2,- 

5 -1.2, .5,1. ,1.1,1. ,.9, .6, .2, -.5,-1./ 

DATA DOTHET/-1. , -.5,. 5, 2*1. , . 8,. 4,0., -.4, 3*0., -.5, -1.6, -4.2,- 

1 -4 . 9,-5. ,-4.2, -2.5, . 3, 3.2,5 .8, 9. 1, 9. ,8.5, - 

2 0. ,.5, .8, 1.2, 1.3, 1.2, 1.1,1. ,.6,0., -1., -1.8, -2. 5, -.3, 3. 2,4.7, - 

3 6., 6. 8, 7. 5, 7. 6, 7. 7, 7. 5, 6. 9, 6. 375, 6./ 

DATA BETA/0. ,2. ,3. ,3.6,4. ,6*4.1,4.05,3.8,3.3,2.65,2.3,- 

1 1.93,1.55,1.05, .55, .12,3*0. , .12, - 

2 0. ,1.2, 2. 25, 3. 05, 3. 67, 4. 1,4. 45, 4. 8, 5. 1,5. 35, 5. 6, 5. 3, 4. 95, 4.5,- 

3 3.8,3.27,2.55,1.7,-1.95,-2. ,-l. 65,-1. ,0. , - 1 . ,-l .65,- 

4 0.,. 9, 1.8, 2, 7, 3. 6, 4. 5, 5. 4, 6. 2, 7. 1,8., 7. 1,4. 5, -2. 4, -2., -1.1,-. 4,- 

5 .2,. 8. 1.2, 1.4, 1.1,. 6,0.,. 6, 1.1/ 

DATA CAY/ 9*4. ,3.95,3.63,3*3.5,3.7,4.1,4.6,5.3,5.9,6*6.,- 
1 8*1. ,1.2, 1.7, 2. 7, 5. ,4*6. ,5. 7, 5. ,3. 2, 2. 1,1. 6, 1.3,1. ,.7, .4/ 

DATA DPHI/3*0.,-.5,-1.25,-2.3,-3.,-2.9,-2.1,-.75,2.,2.5,3./ 

DATA AOPHI/O . , 10. ,20. ,30. ,40. ,50. ,60. ,70. ,80. ,90. ,120. ,150. ,180./ 
DATA Cl/83.6 , 91 .4,85 . 1/ , C2/ . 14, .01, . 01/,C3/67. ,67. , 6 0 . / , WINGD/3 . / 
DATA INOZ, IFWD, INSENS/3*0/ 

DATA SI, ENG/2HSI, 3HENG/ , AR , EDOP/ . 0 174533 , 4 . / 

IF(IJ.NE.l.OR.KI.GT.l) GO TO 6 
IF(KI.EQ.O) GO TO 3 
JOUT-IOUTCl ) 

ISUPPR= ISUPP 

1 READC5, FLAPDA) 

I F ( UN I TS . EQ . ENG ) GO TO 2 
AC1=AC1*10 .76 
AF1 = AF1*10 . 76 

2 IFCIUOTW.EQ.O) IC=1 
IFCINSENS.EQ.l) IC=2 
IFCIUOTW.EQ.l) IC=3 
AT0T=AC1+AF1 
IF(IMOZ.EQ.O) AT0T=AC1 
DTOT = SQRT ( 4 . *AT0T/3.1416) 

3 I F( JOUT . NE . 4 ) GO TO 6 
IF( UNITS. EQ. SI) GO TO 4 

WRITE! 6, 96) IUOTW, INOZ, INSENS , I FWD, AC1 , VC , WINGD , AF1 , VF, BPR 
GO TO 5 

4 ACM=AC1/10 . 76 
AFM^AFl/l 0 .76 
VCM=VC/3.28 
VFM=VF/3.28 

WRITE! 6, 97 ) IUOTW, INOZ , INSENS , I FWD , ACM, VCM , WINGD, AFM, VFM, BPR 

5 IFCISUPPR. EQ. 1) WRI TEC 6 , 98 ) ( FL SUPP ( L ) , L = 1 , 24 ) 
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0012400 
0012500 
0012600 
0012700 
0012800 
0012900 
0013000 
0013100 
0013200 
00 1330 0 
0013400 
0013500 
0013600 
0013700 
0 0 1330 0 
0 0 13900 
0 014 0 0 0 
0014100 
0014200 
0014300 
0 0 14 4 0 0 
0 0 1450 0 
0014600 
0014700 
0014300 
0014900 
00 150 0G 
0015100 
0015200 
0015300 
0 01540 0 
0015500 
0015600 
0015700 
0015800 
0015900 
00 160 00 
0016100 
0016200 
0016300 
0016400 
001650 0 
0016600 
0016700 
0016800 
0016900 
00 170 00 
0017100 
0017200 
0017300 
0017400 
0 017500 
0017600 
0017700 
0017800 
0017900 
0018000 
0018100 
0018200 
0018300 
0018400 
0018500 
0018600 
0018700 
0018800 
0018900 
0019000 
0019100 
0019200 


xxxxxx START HERE FOR ALL SUBSEQUENT CALCULATIONS 

6 IFCINOZ.EQ.O) VAV=VC 

IFCINOZ. EQ . 1) VAV=((AC1XVCXX6+AF1XVFXX6 )/ATOT)XX0 .1667 
I F( INOZ. EQ.2) VAV=CVFXBPR+VC)/(BPR+1 ) 

7 RSQ=R*R/1 . E04 

SPLOA=C1CIC)+C2CIC)XPSYI+C3(IC)XALOG10(VAV/500. ) + 1 0 . XALOG1 0 C NENG- 
1 *ATOT/RSQ/FDOP*KEDOP) 

IFCWINGD.LT. 3.) sploa=sploa+io.*alogiocwingd/3. ) 

IFCIJ.EQ.1.AND.J0UT.EQ.4) WRITEC6.95) SPLOA 

OBTAIN DIRECTIONALITY IN THETA AND PHI DIRECTIONS FROM TABLES 
THET = THET AF 

IFCTHET.LT.-90.) THET=36 0 . +THETAF 
IF(IUOTW.EQ.l) GO TO 8 
xxxxxx UNDER-THE-WING 

CALL TERP CD THET, THET, PSYI.l. , ATHET , APSY, 1 . .25,3,1, DTHETX) 

CALL TERP (BET A, THETA, PSYI.l. , ATHET , APSY , 1 . , 25 , 3 , 1 , BET AX) 
xxx NOTE THAT FIG 14 OF ANOP TMX RE-INTERPRETED AS THETA FOR 

ABSCISSA. THIS CHANGE MADE 2/10/77 TO AVOID ANOMOLY NEAR 
THET A = 9Q , PHI=90 OF RAPID LEVEL CHANGES. 

DPHIX = BETAXX(COS(PHIXAR)-l . ) 

GO TO 9 

xxxxxx OVER-THE-WING 

8 CALL TERPCDOTHET , THET, PSYI, 1 . .ATHET, AOPSY, 1 . ,25,2, 1 .DTHETX) 
PHIAB=ABS(PHI) 

CALL TERPCDPHI.PHIAB, 1 . , 1 . ,AOPHI, 1 . , 1 . , 13, 1 , 1 , DPHIX) 
IFCPHIAB.LE.65. ) PHIT = 0. 

IFCPHIAB.GT.65. ) PHIT=3.6x(PHIAB-65.) 

IFCPHIAB . GT . 90 . ) PHIT=90. 

9 SPLOA=SPLOA+DTHETX+DPHIXXABS(SIN(THETAXAR) ) 

xxx NOTE SINE FACTOR ADDED TO DPHIX DIRECTIONALITY SO IT ADDS 
MAXIMUM 3 THETA = 90 , ZERO AT THETA = 0,180. 10/23/79. 

IFCIUOTW. EQ . 1 .OR. I FWD . EQ . 0 ) GO TO 10 

CALL TERP (CAY, THET, PSYI , 1 . , A THET , AOPSY , 1 . , 25 , 2 , 1 , C AYX ) 

SPLOA = SPLOA-10 . X C A YXX A LOG1 0 (1 ,-VI/VAV) 

10 SUM-0. 

STRU=ALOG10(DTOT/VAV/FDOP) 

DO 12 L = 1 , 24 
STRUH=ALOG10(F(L) )+STRU 

IFCIUOTW. EQ.O) CALL T ERP ( DSPL , STRUH , PSYI , PH I , ASTRU , APSY , APH I , - 
1 2 9 > 3 , 2 , SP EC ) 

IF(IUOTW.EQ.l) CALL TERP ( DOSPL , STRUH , PSYI , PHIT , ASTRU , AOPSY , APH I , - 
1 29, 2, 2, SPEC) 

SPLC L )=SPLOA-SPEC 

I F( ISUPPR . EQ . 1 ) SPL(L)=SPL(L)-FLSUPP(L) 

P L EV = 1 0 . xx ( . 1XSPLCL ) ) 

SUM=SUM+PLEV 
TP(L)=TP(L)+PLEV 
12 CONTINUE 

IFCJOUT.EQ.O) RETURN 
OASPL = 10 . XALOGIOC SUM ) 

PNL=PERNCY(SPL ) 

PNLT=PNL+TONE(SPL) 

IFCJOUT.EQ.l) WRITEC6.93) ( SPL ( L ) , L=1 , 24 ) , OASPL , PNL , PNLT 
IFCJOUT.NE.2) RETURN 

IF(UNITS.EQ.ENG) WRITE<6,94) X , Y, TAU , OASPL , PNL , PNLT 
XM=X/ 3 . 28 
YM=Y/3 . 28 

IFCUNITS . EQ . SI ) WRITEC6.94) XM, YM, TAU , OASPL , PNL , PNLT 
RETURN 

93 FORMA T ( 8H FLAP : , 17 F7 . 1/8X , 7 F7 . 1 , 21X, 8H OASPL =,F7.1,6H PNL =,- 

1 F7.1.7H PNLT = , F7 . 1 ) 

94 FORMAT ( 9H FLAP : , 2F8 . 1 , F8 . 3 , 3F8 . 1 ) 

95 F0RMAT(35X, 'CALCULATED OASPL-REF = * , F5 . 1 , * DB ' ) 

96 FORMAT ( ' INPUT PARAMETERS: CONFIGURATION ( UTW=0 , OTW=l ) C IUOTW) =', - 

1 II,'; NOZZLE(SIMPLE=0,UNMIXED=1,MIXED=2)(INOZ)=',I1, '; FLAP- 

2 ANGLE SENS( INSENS)=’ , II, 1H; ,/20X, 'FWD VEL EFFECTS C I FWD) =', II , - 

3 1H; ,/5X, 'CORE-’ AREA(ACl) 

4 F6 . 3 , ' SQ FT; VELOCITY(VC) = ' , F6 . 1 , ' FPS; WING-CHORD/DIAM =',- 

5 F6 . 2/5X , ’ FAN : AREA ( AF1 ) =’,F6.3,’ SQ FT; VELOCITY(VF) = ',- 
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0019300 
0019900 
0019500 
0019600 
0019700 
0019800 
0019900 
0 020000 
0 020100 
0020200 


6 F6.1,’ FPS; BYPASS(BPR) =’,F5.2) 

97 FORMATC INPUT PARAMETERS: CONFI GURATION ( UTW = 0 , OTW = l )( IUOTW) = ' , 

1 II,’; NOZZLE(SIMPLE=0,UNMIXED=1,MIXED=2)(INOZ)=’ ,11, ’ ; FLAP- 


ANGLE SENS(INSENS)=’ , II , 1H; , /20X, 
1H; ,/5X, ’CORE: AREA C AC1 ) 


FWD VEL EFFECTS (I FWD) 


98 


F6 . 3, ’ SQ M; 
F6.2/5X, ’FAN 
F6 . 1 , ’ M/S; 
FORMAT ( ’ FLAP 
END 


VELOCITY ( VC ) = ’ , F6 . 1 , ’ M/S; 
: AREA ( AF1 ) = ’ , F6 . 3 , ’ SQ M; 
BYPASS ( BPR ) = ’ , F5 . 2 ) 

SUPP: ’ , 29F5 . 1// ) 


WING-CHORD/ DIAM =’ ; 
VELOCITYCVF) = ’,- 


Subroutine AIRFR 


0000100 
0000200 C 
0000300 C 
0000900 C 
0000500 C 
0000600 C 
0000700 C 
0000800 C 
0000900 C 

0001000 c 
0001100 c 

0001200 C 
0001300 C 
0001900 C 
0001500 
0001600 
0001700 
0001800 
0001900 
0002000 
0002100 
0002200 
0002300 C 
0002900 C 
0002500 C 
0002600 C 
0002700 C 
0002800 C 
0002900 C 
0003000 C 
0003100 C 
0003200 C 
0003300 C 
0003900 C 
0003500 C 
0003600 C 
0003700 C 
0003800 C 
0003900 C 
0009000 C 
0009100 
0009200 
0009300 
0009900 C 
0009500 
0009600 
0009700 C 
0009800 
0009900 
0005000 
0005100 
0005200 
0005300 
0005900 
0005500 


SUBROUTINE AIRFR 

TO CALCULATE AIRFRAME NOISE OF AIRCRAFT DUE TO AIRFLOW 
OVER WINGS, HORIZONTAL TAIL, VERTICAL TAIL, NOSE AND MAIN 
LANDING GEAR, DEFLECTED SLOTTED FLAPS, AND LEADING EDGE 
SLAT . 

BASED ON PREDICTION BY M.R. FINK IN FA A RD 77-29, 

AND PROGRAMMED VERSION BY ANOPP-L ANGL EY . 

CALLED BY NOIS OR RADIUS 

CALLS SUBROUTINES PERNOY, TONE 

INFLOW: TP, F, UNITS, IOUT,ILG,FDOP,C,TAMB,PAMB, 

R, THETA, PHI, FLAPI, VI, X,Y,TAU,IJ,KI 
RETURNS: TP, SPL , OASPL , PNL , PNLT 

DIMENSION DP(29),A(9),B(9),NG(2),NW(2),C1(3),E1(3),CG(2),DW(2),- 
1 C2 ( 2 ) ,S2(2) , C3 ( 2 ) , C9 ( 2 ) , E2 ( 2 ) , CP F( 2 ) , AMC 9 ) , BMC 9 ) , DWM( 2 ) 

CO MMON/GEO M/R, THETA, THETAF,THETAH, PHI, VIEW, HEAD, PSYI, FLAPI, EPPI,- 
1 VI,X,Y,TAU,IJ,KI 

COMMON/SPECT/TPC29) , SPL (291 , F(29), OASPL, PNL, PNLT 

COMMON UNITS, ISKIP,I0UT(3),IREV, ILG, FDOP,C,T AM B,PAMB,RH,NENG,ISUPP 
NAMELIST/AIRFDA/JOUT, A , B , I TYPW , ICL EAN , NG , NW , CG , DW , NF , IWI NG , IFL,- 
1 ISLAT , ILG 

IWING = 1/0 (Y/N FOR WING AND HORIZ. & VERT. TAIL NOISE) 

IFL □ 1/0 (Y/N FOR SLOTTED FLAP NOISE) 

ISLAT = 1/0 (Y/N FOR LEADING EDGE SLAT NOISE) 

ILG = 1/0 (Y/N FOR NOSE AND MAIN LANDING GEAR NOISE - THIS 
CAN BE ENTERED THROUGH TRAJ INPUT TO FOOTPR) 

A n AREAS OF WING, HORIZONTAL TAIL, VERTICAL TAIL, AND 
SLOTTED FLAPS(AW,AH,AV,AF) - SQ M(SQ FT) 

B = TOTAL SPANS OF WING, HORIZ. TAIL, VERT. TAIL, AND 
FLAPS(BW,BH,BV,AF/CF) - M( FT ) 

ICLEAN-0/1 FOR AERODYN. CLEAN CONFIG (SAILPLANE)/CONVENTIONAL 

ITYPW=l/2 FOR CONVENTIONAL/DELTA TYPE WING 

NG = NUMBERS OF NOSE GEAR AND MAIN GEAR ( NNG, NMG) 

NW = NUMBERS OF WHEELS ON NOSE GEAR, MAIN GEAR ( NNGW, NMGW) 

DW □ TIRE DIAMETERS FOR NOSE AND MAIN GEAR ( TDNG , TDMG ) - M( FT ) 
CG o STRUT LENGTH TO TIRE DIAM. RATIOS, NOSE & MAIN ( CNG , CMG) 

NF = NUMBER OF TRAILING FLAP SLOTS 

(KIN. VISCOSITY OF AMBIENT AIR IS CALC FROM TAMB AND PAMB) 

DATA C1,E1,C2,S2,C3,E2,C9,CPF/3*.613,3*1.5, .0588, . 0278 , 20 . , 75 . , - 
1 .1722, .0579, .55, .0625,265.2,18691. , 2 . 95E-9 , 6 . 79E-9/ 

DATA SI, ENG/2HSI,3HENG/,AR/. 0179533/ 

FOR DEFAULTS 

DATA ICLEAN, ITYPW,NG,NW,NF/3*1,9*2/ 

DATA A , B , DW , CG/1 0 0 0 . ,9X100., 3*20., 9*3./ 

IF( VI . GT . .1) GO TO 1 
WRITE( 6 , 92 ) 

RETURN 

1 IF(IJ.NE.l.OR.KI.GT.l) GO TO 6 
IF(KI.EQ.O) GO TO 3 
JOUT=IOUT ( 1 ) 

RH0AMB=PAMB/53.3/TAMB/32.2 
XJAI=(RH0AMB*C**2/9. 1773E-7)**2 
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0005600 
0005700 
0005800 
0005900 
0006000 
0006100 
0006200 
0006300 
0006400 
0006500 
0006600 
0006700 
0006800 
0006900 
0007000 
0007100 
0007200 
0007300 
0007400 
0007500 
0007600 
0007700 
0007800 
0007900 
0008000 
0008100 
0008200 
0008300 
0008400 
0008500 
0008600 
0008700 
0008800 
0008900 
0009000 
0009100 
C009200 
0009300 
0009400 
0009500 
0009600 
0009700 
0009800 
0009900 
00 1 0000 
0010100 
0010200 
0 0 1 030 0 
00 1 0400 

00 1 0500 
0010600 
0010700 
0010800 
0010900 

001 1000 
0011100 
0011200 
0011300 
0011400 
001 1500 
00 11600 
0011700 
0011800 
0011900 
0012000 
0012100 
0012200 
0012300 
0012400 


GNUAMB=TAMBXX1 . 768/PAMBX5 . 241E-6 
READC 5 , AIRFDA ) 

IFOJNITS.EQ.ENG) GO TO 3 
DO 2 1=1,4 
ACI)=ACI)X10 .76 
BCI)=B(I)*3.28 

2 IF(I.LE.2) DWCI)=DWCI)X3.28 

3 I F( JOUT . NE . 4 ) GO TO 6 

WRITEC 6,95) IWING, IFL , ILG, ISLAT 
I FC UNI TS . EQ . SI ) GO TO 4 
WRITEC 6,96) 

WRITEC 6, 98) A C 1 ) , B C 1 ) , ITYPW, ICL EAN , C C A C I ) , B C I ) ) , 1=2 , 4 ) , NF, FL API 
WRITEC6,99) 

WRITEC6,101) CCNGCI),NWCI), DWC I), CG CD), 1 = 1, 2) 

GO TO 6 

4 WRITEC6, 97) 

DO 5 1=1,4 
AMCI)=ACI)/10.76 
BMC I ) =B C I )/3 . 28 

5 IFCI.LE.2) DWMC I ) =DWC I )/3 . 28 

WRITEC6,98)AMC1),BMC1), ITYPW, ICLEAN,CCAMCI),BMCI)),I=2,4),NF,FLAPI 
WRITEC6.100) 

WRITEC 6, 101) C CNGCI) , NWC I ) , DWMC I ) , CGC I ) ),I = 1,2) 

C 

6 DO 7 L = 1 , 24 

7 DP C L ) =0 . 

VM=VI/C 

VM5R=VMXX5/R/R 

SINPH=SINCPHI«AR) 

COSPH=COSCPHI*AR) 

SINTH=SINCTHETAXAR) 

COSTH=COSCTHETA*AR) 

VIGNU= . 37/ C VI/GNU AMB)XX. 2 
IFC IWING. EQ . 0 ) GO TO II 

Cxx FOR WING, HORIZ. TAIL, AND VERTICAL TAIL CI=1,2,3) 

IFC ITYPW. LT . 2) GO TO 8 
Cl C 1 ) = . 485 
El C 1 ) =1 . 35 

8 FPHI=C0SPHX*2 

P=XJAIXVM5RX( 1 ,+COSTH)xi . 127E-6 
C CONSTANT IS 7 . 08 E-6 C L ANGL EY ) / 2 xp I 

DO 10 1=1,3 
CC = 1 . 

IFC I ! EQ . 1 . AND. ICLEAN. EQ. 1 ) CC=6.31 

BLAY=VIGNUX(ACI)/BCI))x*.8 

SM=10 . XBLAYXFDOP/VI 

IFCI.EQ.3) FPHI=SINPHxx2 

PW=PXCCXBLAYXBCI)XFPHIXC1CI) 

DO 9 L=l,24 
S = FC L )XSM 

FS=C3/CS*XE1CI)+.5))XX4 

9 DPCL)=DPCL)+FSXPW 

10 CONTINUE 

11 IFCILG.EQ.O) GO TO 15 

Cxx FOR NOSE AND MAIN LANDING GEAR CNOSE:l = l; MAIN-’I = 2) 

FPHI=SINPHXX2 

PG= . 1194XXJAIXVM5RXVMXSINTNXX2 
DO 14 1=1,2 

PGG=PGXDWC I )xx2x FLOAT CNGCI) ) 

PG1=PGGXFL0ATCNWCI))X4.3E-1 

PG2=PGGxCGCI)*FPHIX5.44E-4 

SM=CDWCI)XFD0P/VI)XX2 

DO 13 L=l,24 

SS=SMXFCL)XX2 

IFCNWCI) .GT.2) GO TO 12 

F1=13.59XSS/C12.5+SS)XX2.25 

F2 = 3 . 24 4XSS/C 30 . +SSXX4) 

GO TO 13 

12 F1=.3888XSS/C4.+SS)XX1.5 
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0012500 
0012600 
00 1270 0 
0012800 
0012900 
0013000 
0013100 
0013200 
0013300 
0013900 
0013500 
0013600 
0013700 
0013800 
0013900 
0019000 
0019100 
0019200 
0019300 
0019900 
0019500 
0019600 
0019700 
0019800 
0019900 
0015000 
0015100 
0015200 
0015300 
0015900 
0015500 
0015600 
0015700 
0015800 
0015900 
0016000 
0016100 
0016200 
0016300 
0016900 
0016500 
0016600 
0016700 
0016800 
0016900 
0017000 
0017100 
0017200 
0017300 
0017900 
0017500 
0017600 
0017700 
0017800 
0017900 
0018000 
0018100 
0018200 
0018300 
0018900 
0018500 
0018600 
0018700 
0018800 
0018900 
00 1 9000 
0019100 
0019200 
0019300 


F2 =1.13 5*SS**1. 5/(1. 06 +SS)**3 
13 DP(L)=DPCL)+F1*PG1+F2*PG2 
19 CONTINUE 

15 IF(IFL.EQ.O) GO TO 19 

CX* FOR SLOTTED FLAP NOISE 

1 = 1 

IFCNF.GT.2) 1=2 
SINFL=SIN(FLAPI*AR) 

COSFL=COSCFLAPI*AR) 

PF=.2387*XJAI*CPF(I)*VM5RXVM*A(9)X(SINFL*(SINFL*C0STH+- 
1 COSFL*SINTH*COSPH) >**2 
SM=A(9)/BC9 )*FD0P/VI 
DO 18 L = 1 , 29 
S=F(L)*SM 

IFCS.GE.2. ) GO TO 16 
FS=C2( I )*S 
GO TO 18 

16 IF(S.GT.S2(I)) GO TO 17 
FS=C3(I)/S**E2(I) 

GO TO 18 

17 FS=C9(I)/S**3 

18 DP(L)=DPCL)+PF*FS 

19 IFCISLATS.EQ.O) GO TO 22 

C** FOR SLATTED LEADING EDGE OF WING 

IFCITYPW.LT. 2) GO TO 20 
Cl ( 1 ) = . 985 
El ( 1 ) = 1 . 35 

20 BLAY=VIGNU*(A(1)/B(1))**.8 
PSL=XJAI*VM5R*BLAY*B( 1 5 X C 1 . +C0STH)*C0SPH**2*1 • 127 E-6 
S M = 1 0 . XBLAYXFDOP/VI 

DO 21 L=l,29 
SS1=SMXF(L) 

SS2=SS1* . 219 

Fl=Cl(l)x(SSl/(S51x*El(l)+.5))xx9 

F2=.613*(SS2/(SS2xxi.5+.5))x*9 

21 DP(L)=DPCL)+PSL*(F1+F2) 

C 

22 SUM-=0. 

DO 23 L =1 , 29 
SUM = SUM + DP ( L ) 

TP(L)=TP(L)+DP(L) 

23 SPL(L)=10 .XALOGlOCDPCm 
I F ( JOU T . EQ . 0 ) RETURN 
OASPL =1 0 . XALOG1 0 ( SUM) 

PNL=PERNOY(SPL) 

PNLT=PNL+TONE(SPL) 

IFC JOUT . EQ . 1 ) WRITE(6,93) ( SPL ( L ) , L =1 , 29 ) , OASPL , PNL , PNL T 
IFC J0UT.NE.2) RETURN 

IFCUNITS . EQ . ENG) WRITE(6,99> X , Y , TAU , OASPL , PNL , PNL T 
XM=X/3 . 28 
YM=Y/3 . 28 

IFCUNITS. EQ. SI) WRITEC6.99) XM,YM, TAU, OASPL, PNL, PNLT 
RETURN 

92 F0RMATC2X, ' V I = 0 ; NO AIRFRAME NOISE; RETURN’) 

93 FORMAT C 8H AIRFR : , 1 7 F7 . 1/8X , 7 F7 . 1 , 2 IX , 8H OASPL =,F7.1,6H PNL =,- 
1 F7 . 1 , 7H PNLT =,F7.1) 

99 FORMAT C 9H AIRFR : , 2F8 . 1 , F8 . 3 , 3F8 . 1 ) 

95 FORMAT ( ' INPUT PARAMETERS: OPTIONS: WING X TAIL NOISECIWING) =', 

1 12,’; SLOTTED FLAP NOISECIFL) =' ,12, 1H; , / 1 6X , 'LANDING GEAR- 

2 NOISECILG) = ' , 12 , ' ; LEADING EDGE SLAT NOISECISLAT) =',I2) 

96 F0RMATC22X, ' AREA CSQ FT) SPAN (FT)’) 

97 F0RMATC22X, ’ AREA CSQ M) SPAN CM)') 

98 FORMAT(6X,5MWING : ,10X,F8.2,6X,F7.2,6X,7HITYPW = , 1 2 , 6X , 8HI CL EAN =, 

1 1 2 , /6X , 12HH0RIZ. T A I L : , 3X , F8 . 2 , 6X , F7 . 2/6X , 19HVERTICA L TAIL:, IX,- 

2 F8.2,6X,F7.2/6X,13HSLOTTED FLAP : , 2X, FS . 2 , 6X, F7 . 2, 6X, 11HNO . FLAPS 
3 =, 12 , 22H ; FLAP ANGLECFLAPI) =,F5.1,5H DEG.) 

99 F0RMATC22X, ’NO. OF GEAR ( NG) NO. OF WHEEL S ( NW) TIRE DIAM.CDW)- 
1 -FT STRUT LEN/TIRE DIAM’ ) 

100 FORMAT ( 22X , ' NO . OF GEAR ( NG ) NO. OF WHEELSCNW) TIRE DIAM.CDW)- 
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0 019^00 1 -n STRUT LEN/TIRE D I A M 1 ) 

0 0 1 9 5 0 0 10 1 FORMAT ( 6X, 18HNOSE LANDING G EAR : , 6X , 1 2 , 20 X , 1 2 , 2 ( 2 OX , F6 . 2 ) /- 

0 0 1 96 00 1 6X.1SHMAIH LANDING GEAR = , 6X , 1 2 , 2 OX , 12 , 2 C 20X , F6 . 2 ) ) 

0019700 END 


Function Subroutine AIRATT 


0000100 c 

0000200 C 
0000300 C 
0000900 C 
0000500 C 
0003600 C 
CC00700 
0000300 
0000900 
0 0 0 1 0 0 0 
0C01100 
0001200 
0001300 
0001900 
0001500 
0001600 
0001700 
0 0 0 13 0 0 
0 0 0 1 9 0 0 
0 0 020 0 0 
G 0 021 0 0 
0002200 
0002300 
0002900 
0002500 
C 0 0 26 0 0 
0 0 027 0 0 
0002800 
0002900 
0 0 0 3 0 0 0 
0003100 
0003200 
0 0 0330 0 
0003900 
000350 0 
0003600 
0003700 
0003S00 
0003900 
0009000 
0 0 091 0 0 
0 0 0 9 2 0 0 


FUNCTION ROUTINE FOR CALCULATION OF AIR ATTEN PER FOOT 
BY ARP 866 (MODIFIED FROM F. MONTEGANI PROGRAM) 

CALLED BY NOIS OR RADIUS 

INFLOW: T EM , RH , FREQ ; RETURNS: AIRATT 

FUNCTION AIRATT ( TEM, RH, FREQ) 

DIMENSION A ( 22 ) 

DATA A/. 87, .75, .652, .57, .505, .452, .906, .369, .335, .308, .286, .268,- 
1 .25 3,. 29,. 231,. 225,. 22,. 215,. 21, . 208,. 202,. 2/ 

T = T EM-9 6 0 . 

A C = ( . IX ( FREQ/100 0 . )**2.05)/C1.651-.00103*T)**2.05 
AMM=( 10 . x( FREQ/ 1000 . )**1 . 003^/10 . **(.52-.00509*(T+SQRT(256.- 
1 -( 10 . -T/5 . )XX2) ) ) 

HA=.25*RH/10.**(1.993-.01638*T-.02*SQRT(128.2-(10. -T/5 . )XX2) ) 
HMM=10 . XX( .9973*ALOG10(FREQ)-1.9899) 

HH = H A/HMM 

IF( HH . GT . . 25 ) GO TO 1 
A A = 1 . 2 x H H 
GO TO 8 

1 IFCHH.GT. .6) GO TO 2 
A A = 1 . 593XHH- . 086 

GO TO 8 

2 IFCHH.GT. .95) GO TO 3 
AA=.89+.16*SIN(3.1916/2.*(HH-.6)/.35) 

GO TO 3 

3 IFCHH.GT. 1.25) GO TO 9 

A A = . 8 7 + . 13*C0S(3.1916/2.*CHH-.95)/.3) 

GO TO 8 

9 IFCHH . GT . 6 . 5) GO TO 7 
HTEST=1 . 25 
DO 5 1=2,22 
HTEST = HTEST+ . 25 
IFCHH. LE.HTEST) GO TO 6 

5 CONTINUE 

6 AA=A(I)+(CHTEST-HH)/.25)*(A(I-1)-ACI)) 

GO TO 8 

7 A A = . 2 

8 CONTINUE 
AIRATT=AMM*AA+AC 
RETURN 

END 


Subroutine BASAT 


0000100 
0000200 C 
0000300 C 
0000900 C 
0000500 C 
0000600 C 
0000700 C 
0000800 C 
0000900 C 
0001 COO c 
0001100 c 
0001200 c 

0001300 C 
0001900 C 
0001500 C 
0001600 C 


SUBROUTINE BASAT (R,T AMB , PAMB , RH,SSPL) 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

x THIS PROGRAM SUBTRACTS THE ATMOSPHERIC ATTENUATION AT DISTANCE * 


x R FROM A LOSSLESS INPUT SPECTRUM TO GIVE AN OUTPUT SPECTRUM. x 
x AIR ATTENUATION FOR EACH BAND IS DETERMINED BY NUMERICAL x 
X INTEGRATION FOLLOWING RIGOROUS FORMULATIONS THAT ACCOUNT FOR X 
X SPECTRUM AND ATTENUATION GRADIENTS AND RETAIN NON-LINEAR X 
X DEPENDENCE ON DISTANCE. IDEAL FILTER CHARACTERISTICS ARE X 
x IMPLIED, AND THE CALCULATIONS ARE BASED ON INTERNATIONALLY- x 
x PREFERRED BAND CENTER FREQUENCIES. x 
x CALLED BY NOIS OR RADIUS x 
x x 
X INFLOW: X 
x SSPLC29) INPUT FRACTIONAL-OCTAVE-BAND SOUND PRESSURE LEVEL x 
x SPECTRUM X 
x R DISTANCE FROM SOURCE, IN FEET x 
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0001700 C 
OCOISOO c 
C0C1900 C 
0002000 C 
C002100 C 
3 C 0220 0 C 
0002300 C 
0002400 
0002500 
0002600 
0002700 
0002800 
0 0 0 2 7 G 0 
0003000 
3003100 
CO 0 320 0 
0303300 
2005400 
0003500 
0003603 
0003700 
0003800 
0 0 3 3 9 0 0 
0004000 
0 0 04100 
0004200 
0004300 
0 0 0 4 4 0 0 
0 0 C 4 5 0 0 
G 0 0 4 6 0 0 
0 0 0 4 7 0 0 
0 004S0 0 


X 

TAMB 

AMBIENT TEMPERATURE 

IN DEGREES RANKINE 

X 

PAMB 

AMBIENT PRESSURE IN 

PSF 

X 

RH 

RELATIVE HUMIDITY IN 

PERCENT 

X 

RETURNS : 



X 

SSPL ( 24 ) 

OUTPUT SPECTRUM 


X 



F. MONTEGANI 

X 

X X X X X 

xxxxxxxxxxx 

xxxxxxxxxxxxxxxx 


DIMENSION EMC24, 2) ,SSPL(24) , C( 3 ) 
C0MM0N/SPECT/TPC24) ,SPL(24),F(24) 

DATA C/ 1.033441, 1.068, 1.103715 5/ 

DO 1 1-1,23 

EM(I,2)=(5SPL(I+1)-SSPL(I) )/70. 

1 EM (1+1,1)= EM (I, 2) 

EM (1,1)= EM (1,2) 

EM( 24 ,2 ) = EM(24 , 1 ) 

2 DO 5 1=1,24 
FCl=F(I)x. 8767124 

CALL ATMB ( R , T AMD , PAMB , RH , F( I ) , AC ) 

sumn=io.*x(-.i*ac) 

SUMD=1 . 

3 DO 4 J = 1 , 3 
F1=FC1XC( J) 

F2=F(I)XC(J) 

CALL AT M BCR, TAMB, PAMB, RH, FI, Al) 

CALL ATMB ( R , T AMB , PAMB , RH , F2 , A2 ) 
SLl=EM(I,l)#FL0AT(J-4) 

SL2=EM(I,2)XFL0AT(J) 

SUMN =SUMN + 10 . **(SL1-. 1*A1)+10.**(SL2-.1*A2) 

4 SUMD=SUMD+10 . **SL1+10.*XSL2 

5 SSPL(I)=SSPL(I)+10.*ALOG10(SUMN/SUMD) 

RETURN 

END 


Subroutine ATMB 


0000100 
C000200 C 
0000300 C 
0000400 C 
0000500 C 
0000600 C 
0000700 C 
OOOCSOO C 
C 0 0 0 9 0 0 C 

0001000 c 
0001100 c 

0001200 C 
0001300 C 
0001400 C 
0001500 C 
0001600 C 
0001700 C 
0001800 C 
0001900 
0002000 
0002100 
0002200 
0 0 0230 0 
C002400 
0002500 
0 0 0260 0 
C 0 0 2 7 0 0 
0002800 
0002900 
0 0 0 3 0 0 0 
0003100 
0003200 
0003300 


SUBROUTINE ATMB ( R , TAMB , PAMB , RH , FREQ , ATT ) 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 


x COMPUTES ATMOSPHERIC ATTENUATION IN DECIBELS FOR SPECIFIED x 
x TEMPERATURE, RELATIVE HUMIDITY, DISTANCE, AND FREQUENCY x 
x FOLLOWING BASS AND SHIELDS, NASA CR-2760. X 
x APPLICABLE FROM 50 TO 100000 HERTZ, 0 TO 100 F, ANY HUMIDITY. X 
x CALLED BY BASAT X 
x INFLOW : R, TAMB, PAMB, RH, FREQ; RETURN: ATT X 
x x 
X R DISTANCE (FEET) X 
x TAMB TEMPERATURE (DEGREES RANKINE) x 
x PAMB PRESSURE (POUNDS FORCE PER SQ FT) x 
x RH RELATIVE HUMIDITY (PERCENT) x 
X FREQ FREQUENCY (HERTZ) X 
x ATT ATTENUATION (DB) x 
x NO ERROR MESSAGES ARE CODED x 
x F. MONTEGANI x 


xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
P = P AMB/2I16 . 

T = TAMB/1 .8 
Tl=T/293 . 

T2 = T/273 . 16 
T3=2239 . 1/T 
T4=3352./T 

PS = 10 . 79586*(1 . -1 ,/T2)-5 . D28 08XALOG1 0 ( T2) 

1 +1 . 50474E-4XC 1 . -10 . xx(-8 . 29692X(T2-1 . ) ) ) 

2 +0.42873E-3X(10.XX(4.76955X(1.-1./T2))-1.)-2.2195983 
H=RH/PX10 . XXPS 

FSQ=FREQXX2 

FRO=PX(24.+4.41E+4XHX(.05+H)/(.391+H)) 

FRN=P/SQRT(T1)#( 9. +350 .*HXEXP(6 . 142* ( 1 . -1 ./Tlxx . 333) 

ALPHA=SQRT(T1 )XFSQ/PX( 1 .84E-11+2. 1913E-4/TlxpxT3xx2XEXP(-T3)/ 

1 ( FRO+FSQ/FRO ) +8 . 1619E-4/TlxpxT4XX2XEXP(-T4)/(FRN+FSQ/FRN) )X8 .686 
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0003400 ATT=ALPHA/3.28084*R 

0003500 RETURN 

0003600 END 


Subroutine EGAC 


0000100 c 

0000200 C 
0000300 C 
0000400 C 
0000500 C 
0000600 C 
0000700 C 
0000800 C 
0000900 
0001000 
0001100 
0 0 0 1200 
0001300 
C 0 0 1 4 0 0 
0 0 0 1500 
00 01600 
0 00 170 0 
0001800 
0001900 
00 02C00 
00 021 00 
00 0220 0 
0002300 
0 0 02400 
000250 0 
0002600 
0002700 
0002300 C 
0 00290 0 
00 030 0 0 
0 0 03100 
0003200 
0003300 
00 03400 
0003500 
0003600 
0003700 


SUBROUTINE TO CALCULATE EXTRA GROUND ATTENUATION DUE 
TO TURBULENT SCATTERING (DOWNWIND ATTENUATION, FIG 4, 

OF SAE AIR 923) BASED ON N.ASA CR-114649 FROM BOEING. 

CALLED BY NOIS OR RADIUS 
CALLS SUBROUTINE TERP 

INFLOW: SSPL, R, VIEW, F; RETURNS: SSPL 

SUBROUTINE EGAC(SSPL) 

DIMENSION SSPL ( 24 ) 

DIMENSION AFZERO(16,7) , AFACT(7,6) ,ADIST(16) , AFREQC7), ABETAC6) 
COMMON/GEOM/R, THETA, THETAF , THETAH , PHI, VIEW 
COMMON/SP ECT/TP ( 24 ) ,SPL(24),F(24) 

DATA ADIST/0. ,2. ,2. 1761, 2. 301, 2. 4771, 2. 6021*2. 7781, 2. 9031,- 
1 3., 3. 1461, 3. 301, 3. 4771, 3. 6021, 3. 7781, 3. 9031, 4./ 

DATA A FREQ/ 1.7 245, 2. 0 256, 2. 3 26 6, 2. 6 27 6, 2. 9287, 3. 22 97,- 
1 3.8318/ 

DATA ABETA/0 . ,2. , 10 . ,20 . ,45. , 90./ 

DATA AFZERO/0 ., .2, .3, .5, .7, .8, 1.1, 1.5, 2. ,3. ,4. 2,5*5. ,- 

1 0. ,.3, .5, .7, 1.1, 1.5, 2. 1,2. 5, 3. ,4. 3, 6. ,7. ,7. 1,3*7. 2,- 

2 0. ,.5, .6,1. ,1.4, 1.9, 2. 6, 3. 2, 4. ,5. 6, 7. 7, 9. 1,9. 7, 9. 9, 2*10.,- 

3 0.,. 6, .8, 1.2, 1.8, 2. 4, 3. 2, 4. ,5. ,7. 1,9. 7, 11. 2, 11. 8, 3*12.,- 

4 0. ,.7,1., 1.5, 2. 2, 2. 7, 3. 6, 4. 8, 6., 8. 5, 11. 1,13. 1,14., 14. 6, 2* 14.8,- 

5 0. ,.8, 1.1, 1.7, 2. 4, 3. 1,4. 4, 5. 8, 7. 2, 10. 1,13. ,14. 7, 15. 4, 15. 9, 2*16.,- 

6 O.,. 8, 1.1, 1.7, 2. 4, 3. 1,4. 4, 5. 8, 7. 2, 10. 1,13. ,14. 7, 15. 4, 15. 9, 2*16./ 
DATA A FACT/ 14*1. ,.186, .2 97 , .352, .406, .468, 2*. 534,- 

1 .16 3, .183, .188, .198, .2 14, 2*. 235, 14*0./ 

IF(R.LE.l-) RETURN 
DIST-ALOGIO(R) 

DO 1 1=1,24 
FREQ=ALOG10(F(I) ) 

CALL TERP( AFZERO,DIST, FREQ, 1. , ADIST , AFREQ , 1 . ,16,7,1, FZERO ) 

CALL TERPCAFACT , FREQ , VIEW, 1 . , AFREQ , ABET A , 1 . ,7, 6,1, FACT) 

1 SSPL(I)=SSPL(I)-FZERO*FACT 
RETURN 
END 


Subroutine GNDRFL 


1U00100 C 
1000200 C 
1000300 C 
1000400 C 
1000500 C 
1000600 C 
1000700 C 
1000800 C 
1000900 C 
1001000 
1001100 
1001200 
1001300 
1001400 
1001500 
1001600 
1001700 C 


SUBROUTINE TO COMPUTE GROUND REFLECTION EFFECT ON TOTAL NOISE, 
BASED ON TMX 56033 BY T. W. PUTNAM OF DFRC , FOR ANOP USE. 

THIS PROGRAM IS BASED ON WHITE NOISE APPROXIMATION, WITH 
PROVISION FOR DISTRIBUTED SOURCE HEIGHTS AND FOR TONES. 

CALLED BY NOIS OR RADIUS 

INFLOW: SSPL, UN ITS, IOUT,C,R, IJ,KI,ZO,ZI,F 

RETURNS: SSPL 

SUBROUTINE GNDRFL ( SSPL ) 

DIMENSION SSPL(24),ENN(24),QABS(24),FSHIFTC24),DK(10) 

COMMON UNITS, I SKIP, IOUT(3) , IREV,ILG, FDOP , C , TAMB , P AMB , RH , NENG, ISUPP 
COMMON/GEOM/R, THETA, THETAF, THETAH, PHI, VIEW, HEAD, PSYI, FLAP I, EPPI,- 
1 VI , X, Y, T AU , I J , KI , ZO ,ZI 
COMMON/SPECT/TP ( 24),SPL(24),FC24) 
NAMELIST/GNDDA/JOUT,QABS,FSHIFT,DK,NS, ITONE 

JOUT=1/0 (Y/N TO PRINT GROUND REFLECTION MODIFICATION 
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1001800 C 
1001900 C 
1002000 C 
1002100 C 
1002200 C 
1002300 C 
1002900 C 
1002500 C 
1002600 C 
1002700 C 
1002800 C 
1002900 
1003000 
1003100 C 
1003200 
1003300 
1003900 
1003500 
1003600 
1003700 
1003800 
1003900 
1009000 
1009100 
1009200 
1009300 
1009900 
1009500 
1009600 
1009700 
1009800 
1009900 
1 0 05000 
1 0 05100 
1005200 
1005300 
10 0590 0 
1005500 
1 005600 
1 0 0570 0 
10 0530 0 
1005900 
1006000 
1006100 
1006200 
1006300 
1006900 
1006500 


OVERRIDING IOUT(l). 

QABS= ABSOLUTE VALUES OF GROUND REFLECTIVITY AS A FUNCTION 
OF FREQUENCY ( DEFAULT = 29*1 . ) 

FSH I FT ■ PHASE SHIFTS OF THE REFLECTED WAVE AS FUNCTION OF 
FREQUENCY, IN DEGREES ( DEFAULT=29*0 . ) 

NS= NUMBER OF HEIGHTS TO BE ENTERED FOR A MULTIPLE SOURCE 
MODELLING (DEFAULT=1 ) 

DK= HEIGHTS OF THE MULTIPLE SOURCES FROM THE SOURCE CENTER 
C DEFAULT = 10*0 . ) 

ITONE=1/0 (Y/N TO TREAT 1/3-OCTAVE BANDS 3 DB OR MORE 
ABOVE ADJACENT BANDS AS TONES FOR REFL. CALC. 

DATA QABS, FSHIFT , DK, NS, IT0NE/29*1 . ,29*0. ,10*0. ,1,0/ 

DATA SI , ENG/2HSI , 3HENG/ 

IFCIJ.NE.l.OR.KI.GT.l) GO TO 3 
JOUT =IOUT ( 1 ) 

1 READC5, GNDDA) 

IFCUNITS. EQ. ENG) GO TO 3 
DO 2 1=1, NS 

2 DK(I)=DK(I)*3.28 

3 ZEE=SQRT(1 .+9.XZ0XZI/R/R) 

DRC=R* ( ZEE- 1 . )/C 
PHS=.7299775*DRC 

9 PHC=6 . 329872#DRC 
DO 8 L = 1 , 29 
PS=PHS 
PC=PHC 

5 I F( I TON E . EQ . 0 ) GO TO 6 
SPLM = SSPL ( L + l ) + 3. 

SPLN=SSPL(L-1) + 3. 

IFCL.EQ.l) SP LN = SSP L ( 1 ) + 3 . 

IFCL.EQ.29) SPLM=SSPL(29)+3. 

IFCSSPLC L ) . LT . SPLM. AND. SSPL(L) . LT.SPLN) GO TO 6 

PS=. 000000 1*DRC 

PC=6.2S31853*DRC 

6 SUM = 0 . 

DO 7 1=1, NS 
DKI = 1 . +DKC I )/ZI 

7 SUM=SUM+SIN(PSXF(L)XDKI)XCOSCPC*F(L)XDKI+. 0179533XFSHIFT(L))/DKI 

ENNl = 1 . +CQABSCL 1/ZEE ) **2 + 2 . *Q ABS C L )/ZEE/PS/ F C L ) *SUM/NS 
IFCENN1 . LE. 0 . ) ENNl = l.E-20 

8 ENN(L)=10.*ALOG10(ENN1) 

DO 9 L =1 , 29 

9 SSPL(L)=SSPL(L)+ENN(L) 

IFCJOUT.EQ.il WRI T E ( 6 , 9 0 ) ( ENN ( L ) , L =1 , 29 1 
90 FORMAT ( 8H GNDRF = , 17F7 . 1/8X, 7F7 . 1 ) 

RETURN 

END 


Subroutine SHLD 


0000100 c 

0000200 C 
C000300 C 
0000900 C 
0000500 C 
0000600 C 
0000700 C 
0000800 C 
0000900 C 
0001000 C 

0001100 c 

0001200 C 
0001300 C 
0001900 C 
0001500 C 
0001600 C 
0001700 C 


SHIELDING SUBROUTINE - CONSISTS OF WING AND FUSELAGE 
SHIELDING TERMS; IN PARTICULAR, 

FUSELAGE: FUNCTION IS HYPERBOLIC SECANT, MAXIMIZING AT 

THETA H =90 DEGREES, WITH A MAXIMUM OF "SFUSE" AND ANGULAR 
WIDTH OF "SWIDE" DEGREES AT 1/E DOWN FROM PEAK. 

ATTENUATION DECREASES WITH FREQUENCY FOR WAVE LENGTHS 
LONGER THAN CHARACTERISTIC FUSELAGE DIMENSION (SUCH AS 
DIAMETER), CFUSE 
WING: UNDER-THE-WING: NONE 

OVER-THE-WING: COSINE FUNCTION OF PHI FOR PHI>60 DEG, 

WITH MAX OF 1; MULTIPLIED BY COSINE FUNCTION 
OF THETAF WITH MAX OF SWING AND MAX DIRECTION OF SMX. 
ATTENUATION DECREASES WITH FREQUENCY FOR WAVE LENGTHS 
LONGER THAN CHARACTERISTIC WING DIMENSION (SUCH AS CHORD), 
CWING 

CALLED BY NOIS OR RADIUS 
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0001800 C 
0001900 C 
0002000 C 
0002100 
0002200 
0002300 
0002400 
0002500 
0002600 
0002700 
0002800 C 
0002900 
0003000 
0003100 C 
0003200 
0003300 
0003400 
0003500 
0003600 
0003700 
0003800 
0003900 
0004000 
0004100 
0004200 
0004300 
0004400 
0004500 
0004600 
0004700 C 
0004800 
0004900 
0005000 
0005100 
0005200 
0005300 
0005400 C 
0005500 
0005600 
0005700 
0005800 
0005900 
0006000 


INFLOW: UNITS, TP, F, THETAF, THETAH , PHI , I J , KI , IOUT 

RETURNS: TP, ATTEN. SPECTRUM (AS SPL), ATTEN. OASPL , PNL , PNLT 

SUBROUTINE SHLD 
DIMENSION SSPLC24) 

COMMON/GEOM/R, THETA, THETAF, THETAH, PHI, VIEW, HEAD, PSYI , FLAPI , EPPI , - 
1 VI,X,Y,TAU, IJ,KI 

COMMON/SP ECT/TP ( 24 ) ,SPL(24) , F( 24 ) , OASPL , PNL, PNLT 

COMMON UNITS, I SKIP, I0UTC3) , I REV , ILG , FDOP , C , T AMB , P AMB , RH , NENG, ISUPP 
NAMELIST/SHLDA/IUOTW, SFUSE, SWIDE, SWING, SMX, CFUSE, CWING 
DEFAULT VALUES 

DATA SFUSE, SWING, CFUSE, CWING, SWIDE, SMX/4*10 . ,60 . , 90 ./ 

DATA SI, ENG/2HSI,3HENG/,AR/. 0174533/ 

IF(IJ.NE.l.OR.KI.NE.l) GO TO 4 
IFCKI.EQ.O) GO TO 1 
JOUT=IOUT(l) 

READ(5, SHLDA) 

1 I F( JOUT . NE . 4 ) GO TO 3 
IF(IUOTW.EQ.O) WRITEC 6 , 98 ) SWIDE, SFUSE 
IFCIUOTW. EQ. 1) WRITEC 6,99) SWIDE , SFUSE , SWING, SMX 
IFCUNITS.EQ.SI) GO TO 2 

WRITEC 6,100) CFUSE, CWING 
GO TO 3 

2 WRITE (6,101) CFUSE, CWING 
CFUSE=CFUSE*3.28 
CWING=CWING*3.28 

3 FWING=C/CWING 
FFUSE=C/CFUSE 

FUSELAGE SHIELDING (UTW OR OTW ENGINE) FOR PHI>70 DEG. 

DELF=0 . 

4 IFCPHI.GT.70.) DEL F=S FUSE/COSH C ( TH ET AH- 9 0 .) *3 . 3 15/SWIDE ) *- 
1 SINC (PHI-70 . ) *4 . 5*AR)/FFUSE 

IF(DELF.LT.O.) DELF=0. 

DELW=0 . 

IFCIUOTW. EQ.O) GO TO 8 

WING SHIELDING FOR OTW ENGINE 
6 IFCPHI.LE.60. ) THDELT = SWING 

IFCPHI.GT.60.) THDELT=SWING*COS(3.X(PHI-60 . )*AR) 

DELW = THDELT*COSC CTHETAF-SMX)*AR) 

8 DELW=DELW/FWING 

IFCDELW.LT. 0. ) DELW = 0. 

SUM=0 . 


0006100 

0006200 

0006300 

0006400 

0006500 

0006600 

0006700 

0006800 

0006900 

0007000 

0007100 

0007200 

0007300 

0007400 

0007500 

0007600 

0007700 

0007800 

0007900 

0008000 

0008100 

0008200 

0008300 

0008400 

0008500 

0008600 


DO 9 L = 1 , 24 

DEF=DELF*AMIN1(F(L) , FFUSE) 

DEW=DELWXAMIN1(F(L),FWING) 

SPL ( L ) =DEF+DEW 

TP(L)=TPCL>/10.XX(SPL(L)/10. ) 

SSPL(L)=10 .XALOGIOCTPCD) 

9 SUM=SUM+TP(L) 

IFCJOUT.EQ.O) RETURN 
OASPL=10.#ALOG10(SUM) 

PNL=PERNOY(SSPL) 

PNLT=PNL+TONE(SSPL) 

IFC JOUT . EQ . 1 ) WRITE(6,102) 

IFCJ0UT.EQ.2) WRITEC 6,103) 

RETURN 

98 FORMAT ( ’ UNDER-THE-WING SHIELDING: SHIELDED OVER 

1 F8 . 2 , ' DEGREES ARC BY FUSELAGE, MAXIMUM 0F T ,F8.2,3H 

99 FORMAT ( ' OVER-THE-WING SHIELDING: SHIELDED OVER' 

1 F8 . 2 , ’ DEGREES ARC BY FUSELAGE, MAXIMUM 0F’,F8.2,3H 


CSPLCL) ,L=1,24) , OASPL, PNL, PNLT 
OASPL, PNL, PNLT 


DB) 


DB/- 


2 22X, ’WING SHIELDING MAXIMUM 0F',F8.2,’ DB AT ANGLE 0F',F8.2,- 

3 8H DEGREES) 

100 F0RMATC22X, ’CHARACTERISTIC DIMENSIONS ; 

1 • FEET; CWING =',F9.3,5H FEET) 

101 F0RMATC22X, 'CHARACTERISTIC DIMENSIONS ; 

1 ' METERS; CWING =',F9.3,7H METERS) 

102 FORMAT ( 8H SHI ELD : , 17 F7 . 1/8X , 7 F7 . 1 , 29H 
1 OASPL =,F7.1,6H PNL =,F7.1,7H PNLT = 


CFUSE = * , F9 . 3 , - 
CFUSE =*,F9.3,- 


(AFTER 

F7.1) 


SHIELDING) :- 
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0008700 

0008800 


0000100 

0000200 

0000300 

0000400 

0000500 

0000600 

0000700 

0000800 

0000900 

0001000 

0001100 

0001200 

0001300 

0001400 

0001500 

0001600 

0001700 

0001800 

0001900 

0002000 

0002100 

0002200 

0002300 

0002400 

0002500 

0002600 

0002700 

0002800 

0002900 

0003000 

0003100 

0003200 

0003300 

0003400 

0003500 

0003600 

0003700 

0003800 

0003900 

0004000 

0004100 

0004200 

0004300 

0004400 


0000100 C 
0000200 C 
0000300 C 
0000400 C 
0000500 C 
0000600 C 
0000700 
0000800 
0000900 
00 01000 
0001100 
0001200 
0001300 
0001400 
0 00 1500 
0001600 


103 FORMAT ( 18H SHIELDED LEVELS :, 15X, 3F7 . 1 ) 
END 


Subroutine PERNOY 


FUNCTION ROUTINE FOR CALC PERCEIVED NOISE 

CALLED BY NOIS OR RADIUS AND ALL NOISE SOURCE MODULES 
INFLOW: spl; RETURNS: PERNOY 

FUNCTION PERNOY ( SPL ) 

DIMENSION ELLK24) , ELL2C24) , ELL3C24) , ELLC(24) , ELL4(24) , SPL (27) 
DIMENSION SL0PEK24), SLOP E2(24)»SL0PE3(24), SLOP E4 (24) 

DATA EL Ll/49. ,44. ,39. ,34. ,30. ,27. ,24. ,21. ,18. ,5* 16. ,15. ,12., 9. ,- 
1 5. ,4. ,5. ,6. ,10. ,17. ,21./ 

DATA ELL2/55 .,51. ,46. ,42. ,39. ,36. ,33. ,30. ,27 . , 5*25 • , 23 . , 21 . , 18. ,- 
1 15 . , 14 . , 14. , 15 . , 17 . , 23 . , 29 ./ 

DATA ELL 3/6 4. ,60 . , 56 . , 53. , 51 . ,48. ,46 . ,44. ,42. ,5*40 . ,38. ,34. ,32. ,- 
1 30 . ,2*2 9. , 30 . , 31 . , 37 . , 41 ./ 

DATA EL L C/91 .01 ,85.88,87 .32,79.85,79.76,75. 96,73.96,74. 91, 94.68,- 
1 13*100 . , 44.29,50 .72/ 

DATA ELL4/52. , 5 1 . , 4 9 . , 47 . , 46 . , 45 . , 43 . , 42 . , 41 . , 5*4 0 . , 38 . , 34 . , 32 . , - 
1 30 . , 2*29. , 30 . , 31 . , 34. , 37 ./ 

DATA SLOPE1/. 07952, 2*. 06816,. 05964, 10*. 053013,. 05 96 4, 2*. 053013,- 
1 2*. 047712, 2*. 053013,. 06816,. 07952,. 05 96 4/ 

DATA S L OP E2/2*. 0 58098, .052288, .047534, 2*. 043573,. 040221,. 037 349,- 
1 7*. 034859, .040221, . 0 37 34 9 , 4* . 0 3485 9 , 2* . 0 3734 9 , .0 4357 3/ 

DATA S L OP E3/. 0 4 3478, .04057, 2*. 0 36 831,. 035336, 2*. 033333,. 0 32 051,- 
1 . 030675, 6*. 030103, 7*. 02996,2*. 042285/ 

DATA SL0PE4/15*. 030103, 9*. 02996/ 

SNOY=0 . 

XNOYMX=0 . 

DO 1 N=1 , 24 

IF(SPLCN) .GT.150. ) WRITE(6,10) SPL(N) 

IFCSPL(N) . LT. ELL2CN) ) XNOY= . 1*1 0 . ** ( SLOPE1 ( N ) * ( SPL ( N )-EL L 1 ( N ) ) ) 
IF(SPLCN) .GE. ELL2CN) . AND. SPL CN) .LT. ELL3CN) ) XNOY=l 0 . ** ( SL0PE2 ( N ) *- 
1 (SPL(N)-ELL3(N))) 

IFCSPL(N) . GE. ELL3CN) . AND. SPL (N) . LT. ELLC(N) ) XNOY = 10 . **(SL0PE3(N)*- 
1 (SPL(N)-ELL3(N) ) ) 

IFCSPL(N) .GE. ELLC(N) ) XNOY = 10 . ** ( SL0PE4 C N ) * ( SP L C N ) -EL L4 C N ) ) ) 
SNOY=SNOY+XNOY 

IFCXNOY.GT. XNOYMX) XNOYMX=XNOY 
1 CONTINUE 

EN=XNOYMX+ . 15* ( SNOY-XNOYMX) 

PERNOY=40 .+33.22* ALOGIO(EN) 

RETURN 

10 FORMAT ( 25H PNDB SUBROUTINE WARNING :, F6 . 1 , 46H DB EXCEEDS RANGE- 
1 (150 D3 ) FOR VALID PNDB CALC) 

END 


Subroutine TONE 

FUNCTION SUBROUTINE TO CALCULATE TONE CORRECTION 
FOR PNLT AS AN ADDITION TO PNL . 

CALLED BY NOIS OR RADIUS AND ALL NOISE SOURCE MODULES 
INFLOW: SPL; RETURNS: TONE 

FUNCTION TONE(SPL) 

DIMENSION SPL(24),SL(25),SP(24) 

LOGICAL N ( 24 ) 

DO 1 1=4,24 
N(I)=. FALSE. 

1 SL(I)=SPL(I)-SPL(I-1) 

DO 2 1=5,24 

IF(ABS(SL(I)-SL(I-1)) . LE.5. ) GO TO 2 

IF(SL(I) .GT.O. .AND.SL(I).GT.SLCI-l)) N(I)=.TRUE. 

IF(SL(I) .LE.O. . AND . SL ( 1-1 ) .GT.O . ) N ( 1-1 ) = . TRUE . 
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0001700 
0001800 
0001900 
0002000 
0002100 
0002200 
0002300 
0002400 
0002500 
0002600 
0002700 
0002800 
0002900 
0003000 
0003100 
0003200 
0003300 
0003400 
0003500 
0003600 C 
0003700 C 
0003800 
0003900 
0 004000 
00041 00 


2 CONTINUE 

DO 3 1=1,23 
SP ( I ) =SPL ( I ) 

IFCNCI)) SP(I)=.5*(SPLCI-1)+SPL(I+1)) 

3 CONTINUE 

SP ( 24 ) =SPL ( 24 ) 

IFCNC24)) SP(24)=SPL(23)+SL(23) 

DO 4 1=4,24 

4 SL(I)=SP(I)-SP(I-1) 

SL ( 3 ) =SL ( 4 ) 

SL ( 25 ) =SP ( 24 ) 

SP ( 3 ) =SPL ( 3 ) 

TONE=0 . 

DO 5 1=4,24 
FACT =2 . 

SP(I)=SPCI-1)+.3333#(SL(I-1)+SL(I)+SL(I+1)) 

FDEL=SPLCI)-SP(I) 

IF(I.LE.21.AND.I.GE.ll) FACT=1. 

T = FDEL/3 . /FACT 

FOLLOWING STATEMENT INACTIVATED, PER MARCH 1978 VERSION 
IFCFDEL.LT. 3.) T = 0 . 

IFCFDEL.GT.20. ) T=6 . 66667/FACT 

5 IFCT . GE. TONE) TONE=T 
RETURN 

END 


Subroutine EPNL 


1000100 c 

1000200 C 
1000300 C 
1000400 C 
1000500 C 
1000600 C 
1000700 C 
1000800 C 
1000900 C 
1001 000 
1001100 
1001200 


FUNCTION SUBROUTINE TO INTEGRATE EPNL FROM PNL TIME HISTORY, 
ASSUMING PNLT IS LINEAR WITH TIME BETWEEN POINTS. ROUTINE 
DOUBLES AREA INTEGRATED AND WARNS USER IF EITHER FIRST OR 
LAST VALUE OF PNL IS THE MAXIMUM SO THAT INTEGRAL WOULD NOT 
BE FINITE. 

CALLED BY NOIS 

INFLOW: F , FMAX , T , N ; RETURNS: EPNL , TS , TF 

FUNCTION EPNLCF, FMAX,T ,N»TS»TF) 

DIMENSION F(1),T(1) 

EP(F2,F1,T2,T1)=4.3429XCT2-T1)X(10.*K(.1XF2)-10.XX( • 1*F1 ) )/C F2-F1 ) 


1001300 

1001400 

1001500 

1001600 

1001700 

1001800 

1001900 

1002000 

1002100 

1002200 

1002300 

1002400 

1002500 

1002600 

1002700 

1002800 

1002900 

1003000 

1003100 

1003200 

1003300 

1003400 

1003500 

1003600 

1003700 


IK = 0 
I L = 0 
IWS = 0 
IWF = 0 
EPSUM=0 . 

F10=FMAX-10 . 

IFCF(l).EQ.FMAX) IWS=1 
IFCFCN) .EQ.FMAX) IWF=1 
DO 2 J = 1 , N 

IFCIK.EQ.l.AND.IL.EQ.l) GO TO 3 

IFCIK.EQ.l) GO TO 1 

IFCFCJ) . LT . FI 0 ) GO TO 1 

I=J 

IK = 1 

1 IFCIL.EQ.l) GO TO 2 
L=N-J+1 

IFCFCL) .LT.F10) GO TO 2 
K = L 
I L = 1 

2 CONTINUE 

3 KM=K-1 

DO 5 J = 1 , KM 

IF(ABS(FCJ+1)-FCJ)).GT. .001) GO TO 4 
EPSUM = EPSUM+ CTCJ + l)-T(J))xi0.xj(C . lxF(J)) 
GO TO 5 
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1003800 

1003900 

1004000 

1004100 

1004200 

1004300 

1004400 

1004500 

1004600 

1004700 

1004800 

1004900 

1005000 

1005100 

1005200 

1005300 

1005400 

1005500 

1005600 

1005700 

1005800 

1005900 

1006000 

1006100 

1006200 

1006300 

1006400 

1006500 

1006600 

1006700 

1006800 

1006900 


0000100 C 
0000200 C 
00C* 300 C 
0000400 C 
0000500 C 
0000600 C 
0000700 C 
0000800 C 
0000900 C 

0001000 c 
0001100 c 
0001200 C 
0001300 C 
0001400 
0001500 
0001600 
0001700 C 
0001800 
0001900 
0002000 
0002100 
0002200 
0002300 
0002400 
0002500 
0002600 
0002700 
0002800 
0002900 
0003000 
0003100 
0003200 
0003300 


II II III 


I I I 


| I I | III ■!■■■■ III! III ■ 1IHI«BMII III ■ I 1IIIB ■■ !■■■■■■■ ■ ■ 


4 EPSUM=EPSUM+EPCFCJ+1),FCJ),TCJ+1),TCJ)) 

5 CONTINUE 
IJ = I 

JK = K 

IF(IJ.EQ.l) I J =2 
IF(JK.EQ.N) JK=N-1 

IFCIWS.EQ. 0) TS = T(IJ)-CFCIJ)-F10)x(T(IJ)-TCIJ-l>)/(F(IJ)-F(IJ-m 
IFCTS. LE.TCI) ) GO TO 6 
TS = T C I ) 

WRITEC6 , 93) 

6 IFCIWF.EQ. 0) TF=T(JK)+(F10-F( JK) )* C T C JK+1 ) -T C JK) )/ C FC JK+1 ) -FC JK) ) 
IF(TF.GE.TCK)) GO TO 7 

TF=T(K) 

WRITEC 6,94) 

7 IFCFCI)-F10.LT. .001) GO TO 8 

IFCIWS. EQ . 0) EPSUM=EPSUM+EPCFCI) , F10,TCI) ,TS) 

8 IF(F(K)-F10.LT. .001) GO TO 9 

IFCIWF.EQ. 0) EPSUM=EPSUM+EPCF10, FCK) ,TF,TCK) ) 

9 IFCIWS.EQ. 1) WRITE(6,90) FC1) 

IFCIWF.EQ. 1) WRITEC6 , 91 ) FCN) 

IFCIWS. NE.l. AND. IWF.NE.l) GO TO 10 
WRITEC 6 , 92) 

EPSUM=2. *EPSUM 

10 EPNL=10.*ALOG10CEPSUM/10.) 

RETURN 

90 FORMAT C2X, ' EPNL WARNING: FIRST PNLTC ' , F5 . 1 , ’ ) IS MAXIMUM 1 ) 

91 F0RMATC2X, 'EPNL WARNING: LAST PNLTC ', F5 . 1 ,’ ) IS MAXIMUM’) 

92 F0RMATC4X, 'APPROXIMATE EPNL ASSUMING SYMMETRICAL TIME HISTORY. - 
1 INCREASE TIME CTD OR NT) FOR VALID CALCULATION’) 

93 FORMAT C ' EPNL APPROX. -LEVELS DECREASE AT START OF TIME INTERVAL’) 

94 FORMAT C ’ EPNL APPROX. -LEVELS INCREASE AT END OF TIME INTERVAL') 
END 


Subroutine TERP 


INTERPOLATION SUBROUTINE FOR FINDING ’’FX’’ AS FUNCTION OF 
ABSCISSA "AX" AND INDEPENDENT CURVES IN PARAMETERS ’’B" AND "C". 
CALLED BY MANY MODULES; CALLS SERCH 
INFLOW: F,AX,BX,CX,A,B,C,NA,NB,NC; RETURNS: FX 

A= ARRAY OF NA ABSCISSA VALUES COMMON TO "B" AND ”C’’ 

B= 2-DIMEN. ARRAY OF NB CURVE VALUES FOR EACH "C” SET, 

C= ARRAY OF NC VALUES OF C 

F: 3-DIMEN. ARRAY AS A FUNCTION OF "A", "B", AND "C" 

AX= INPUT VALUE OF A 

BX= INPUT VALUE OF B 

CX: INPUT VALUE OF C 

FX= INTERPOLATED OUTPUT 

SUBROUTINE TERP C F , AX , BX , CX, A , B , C , NA , NB , NC , FX ) 

DIMENSION FFFC2) , FFC2,2) , FCNA,NB,NC) , ACNA) ,BCNB,NC) ,CCNC),- 
1 B1C20) .B2C20) 

CALL SERCHCAX, A,NA,KA,AFR) 

CALL SERCHCCX,C,NC,KC»CFR) 

KC1=KC+1 

IFCNC.EQ.l) KC1 =KC 
DO 1 KB=1 , NB 
B1CKB)-BCKB,KC) 

B2 C KB ) =B C KB , KC1 ) 

1 CONTINUE 

CALL SERCHCBX,B1,NB,KB1,BFR1) 

CALL SERCHCBX,B2,NB,KB2,BFR2) 

BF=BFR1 
J 1 =KB 1 
J1P1=J1+1 

IFCNB.EQ.l) J1P1=J1 
DO 3 I =KC , KC1 
DO 2 J=J1,J1P1 
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00Q34Q0 


FFCJ,I)=F(KA, J,I)+AFRXCFCKA+1, J,I)-F(KA, J,I)) 

0003500 

2 

CONTINUE 

0003600 


FFF(I)=FF<J1,I)+BFK(FF(J1P1,I)-FF(J1,I)) 

0003700 


J 1 =KB2 

0003800 


J1P1=J1+1 

0003900 


BF=BFR2 

0004000 

3 

CONTINUE 

0004100 


FX=FFF(KC)+CFR*CFFF(KC1)-FFF(KC)) 

0004200 


RETURN 

0004300 


END 





Subroutine SERCH 



0000100 

C 


SUBROUTINE TO FIND KA.KA+l INTERVAL WHERE 

AX 

FALLS IN NA VALUES 

0000200 

c 


OF ARRAY "A", AND TO CALCULATE FRACTION 

AFR 

WITHIN INTERVAL. 

0000300 

c 





0000400 

c 


CALLED BY TERP 



0000500 

c 


INFLOW: AX , A , NA ; RETURNS: KA , AFR 



0000600 



SUBROUTINE SERCH ( AX, A , NA , KA , AFR) 



000 070 0 



DIMENSION A(NA) 



0000800 



IFCNA.GT.l) GO TO 1 



0000900 



AFR=0 . 



0001000 



KA = 1 



0001100 



RETURN 



0001200 


1 

IFCAX.LE.A(l)) GO TO 4 



0001300 



NAM1 =NA-1 



0001400 



DO 2 I = 1 » N AMI 



000 1500 



I F( AX . GE . A ( I ) . AND . AX . LT . A C 1 + 1 ) ) GO TO 3 



0001600 


2 

CONTINUE 



0001700 


3 

KA = I 



0001800 



GO TO 5 



0001900 


4 

KA = 1 



0002000 


5 

IF(A(KA+1) .NE.ACKA)) GO TO 6 



0002100 



AFR=0 . 



0002200 



RETURN 



0002300 


6 

AFR=(AX-A(KA) )/ C A ( KA+1 ) -A ( KA ) ) 



0002400 



RETURN 



0002500 



END 
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TABLE I. - PREDICTION SOURCE EQUATIONS AND FIGURES 
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L In form only: constants in equations modified by Langley Research Center, with consultation by M. R. Fink, 
United Technologies, Corp. 















CHECKLIST OF DATA INPUT 
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Only required when corresponding source routines are used. 
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The following are examples of input data required for particular calculations. They are discussed 
in detail in the text. A general list of inputs is given in table III. Computed outputs from these in- 
puts are shown in tables V to X and discussed in the text. 
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£ JETDA IHOZ= 1 , GAMMAC= 1 . 36 , GASRC= 53 . 38 , AC = 1 . 2 1 5 , AF= 3 . 951 , SEND 
ECOREDA IMOD= 1 /DTEMD= 900 . / GAMMA = 1 . 4 , SEND 

STURBDA TBNDIA = 1 . 53 ,CS = 700 . ,GEAR = 2 . 302 ,NBLR = 60 ,ITYPTB= 1 , SEND 
SFLAPDA IUOTU= 1 , IN 0 Z= 2 , IFUD= 1 , BPR= 6 . 1 , AC 1 = 1 . 2 15 , AF 1 = 3 . 95 1 SEND 
SOPER EPPI= 87 . 7 SEND 



Q 

X 

w 

<3 


TJ 

03 

T3 

d 

O 

c 

o 

u 


w 

£ 

<; 

H 


<u 

in 

0 
£ 

01 
£ 
£ 
M 
4H 
P 
•H 
rt 

b 

£ 

■rl 

> 

H 

O 

> 

£ 

•H 

in 

£ 

o 

•H 

•P 

U 

•H 

T3 

QJ 

W 

£ 

M 

O 

Pm 


W 

> 

H 

Pm 

pa 

h 

A, 

x 

< 

to 


a 

*a; o A > 

A II H - 

uo<m 
A >» - • 
H - -3 

< t- O CM 

II - - 

wo -m 
pa >-i-d- * 
paXo3 
-rocM 
W • » H 
oco «; a 
*— N A 
AlO - w 
Oh • * 
Pm l 0«- 
If -X 
OO -CM 
PXCOII 
ICC -*- OS 

uu^u 
Xr- w 
ww i H 
io x u - 
H ro «C . 
OllXM 
X m -3 
H-cmx 

XH II CM 

OX A. 11 
*coX»=j: 
o a 

AP £>*d 

a h<h 
a A a Pm 

< o h 

cj co 


ON • 
VDCX> 

3 *~ 
• CT> 
»“ CM 

ro • 
roro 
*- o 

«— CM 

u u 

PS 3 

A h 
Pm *=Z 

«a - 


r- 

3 
vo 

‘CO 
3 *- 

oco 

VO • 

n n 

OfM 
HIM 

< w 

• < 
— a 

*- * *L0 * 


Hc3 M MHX - • - ro 

- X n < X co vo c -o 

*— «c ro -«i • - ■ r- - 

n x pm • acm ro *- • ro 

PJ 
A 
o 
o 

H«“~ *3 -r- - • 

- II O *“3 II *~ CO 

*-Ho - ro «: . - 

II O'- • O' HMM 
HO -vo II P 

pa 
►o 
H 


x - -^3 
-zr ii - 
• pa lo 


o 

o - 
Proa. 
X II • 
pa in - 
Oco 


ro -oo 
lO ct> 
a. • • 

• o CM 

ro co ii 
-co 3 P 


o«c<ro - - • -ro a. 

-3 -co*-Lor-vo -ro i 
ro < • vo ro • - 

- -cr. - ♦ cm *— « 

-3 H 

ro -O — • ro - P X 

• r- *x • - • ■ -w 

*— . £ *- r- jo* r- vo c3 

•. 3 -E *M * -r- - 3 - 

h lo r- to X cr. cr. *— - < o a -cold • 

- . II H«: ■ - ■ cm lo < vd • -ro 

*- 3 pa a a *- ro *- • -LOPa • 3- cm - 


u cm pa x - - • 
*— A II OHldoo 
U AAO<C0 ■ *“* 
X X cm3 - 

«:ww«c<3-x -lo 

P-H< -o C3* ■ 
H - -lO— > • — 

-O CM CM • X — — 

II || .co - - - 


ro 

ii 

e> 

X 

pa 

QX 

x 

papa 

030 
pa 
coo 
co 
< w 

co o3 


-LO — ' 
cr. -co 

• cr. 

- • ro : 
COLO CM l 
. «. || 
-vO O t 
vO • < 

• vO 


t- o - -co ro o 
ii -to • • o> II 
Q CM • LOr- • H 
- -cm ro «: 
pao^rcMa. ii >-a 
h • • • -ow 

Q3 -O-vOOH 
- ii ro - • - - 
— < -r-r^ 3- »- 
<TZ t ~ - cm cm ' — - -— n H - • o - ii 
lD«cC -LOrO • -L03 II Q(ONfOO<Mh1 
w pa cr. CM ll «— O • • O O X * - -3 II Ph 
h on »- a ii — n r-32:« « cm ii 3H 
-x • • co x 
cm jz: n n x Hr- 1 
II H H CM 

s: r: cm pa < cm co t 
EndHDQP 

«: pa ha. x to 


•d 

£ 

ru 

H 

o| 

£ 

o 

•H 

-P 

£ 

rH 

£ 

o 

H 

£ 

O 

-P 

£ 

■H 

M 

P 

■P 

O 

o 

A 


o3 


A 

<o 


O 

o 

VO 


o 

o 

LO 


O 

o 

o 



11 

• LO a. • - 

CO 



o 


Q 

cr. ["- -o vo 

• 



o 


X 

CO 3 • VD • 

vO 



LO 


o 

*- *- 3ror- 

- 

- 


- 

a 

H 

ro -ro ii - 


- 3 


• 

X 

• 

- *lo in vd 

• 

I s - 


o 

pa 

*— 

• ro ii to • 

LO 

• CO 


- 

C3 

II 

co O A vo 

- 

CM O 


• 


A 

CM— > - - 

co 

- * 

•• 

o 


O 

o*-«;Lor- 

• 

ro 

aj 

o 


£S 

CM II -CM • 

3 

- . LO 

£ 

o 


H 

ii ro • • lo 

- 

«— CM 3 

O 


n 


H H ro*— - 

C Q 

II - 


1 

X LO 

T~ 

A <*“ ii • 

• X 

m • o> 

a) 

•* 

pa 

11 

A -3QLO 

co W 

H CM CM - 

i — i 

• 

<3 ll 

A 

< • *— X - 

- (3 

A - -O 

p- 

o 

Q 

A 

-o - A ro 

ro Q 

H 

£ 

o 

H 

H 

• VD • H • 

- -X 

H *X*“X 

£ 

Ho 


«a 

o*— cMH3*-rowro 

H«-Pa -< 

X 

H CM 

-CO • 

H 

LOvOvD - - 

• - <3 ro 

- -C3C0W 

W 

O 1 

•COCO 


ro in «- r- w r~ 

CM LO vO H 


A - 

O -CM 

*— 

*— -*~ 3 • 

- . ro 

o • -O 

HHI 

1 

11 CO CM 

II 

. . n -rocorsi m 

*-**- cr. H 

o| 

| oo 

OX X 

P3 

■ CO A CM - 

• - N 

|| - - 


XO 

ts] eg CM 

PiQMd-SiininM U 

A ro *- •!> 

°\ 

oo 

- 11 11 

SXd-oFW • 

- -ropj 

H • -o *- 

£i 

03 

.*-< 

HWC03OOC0L0CM • in 

pq *— ro o • 

•H 

A 1 


Q 

X 

A 

co 


ro 

o 

ii - 
hr 
rovo 
o • 

H vQ 
- cr* 


« 

X 

W 

O 03 

X 



*- -r^ 

- - CO 


A 


ti ro cm 

[> 


(3 


X & • 

CM O CM 


■— 


H •«- 

3 ro - 3 


-LO 


<0 VD 

3 r- cm r- 


«— a. 


H 3 CM 

• -CM * - *— 


ii • 


k A K 

*— CM CM h- -3 - - 


paro 


* CO 3 

- -CM -3 • • CO 


H ll 


ll CO vO 

• cr. . •*— cm*— • • 


A «“ 


Q • • 

3" co h" CM *~ 3 h- 3 LO 


H A 

n 

Z I-' r- IT) CO ro O LOCI' 


H< 

X 

O CO 3 

*-ro - cj. cm *— - vo lo 


H - 

Pa 

H -<M I> *00 • - -CM*- - 

- 

-LO 

C3 

-CO - 

- *— CM CM LO • *— • -3 

LO 

o<- 


*— CM CO 

. * . - 3 • CM ro • 

3 

vD CM 


or 

tt 

CM 


a 

oo 

xo 

<<D 
vD 
C I 
X - 
H • 
Oo 
Xo O 
<o X 
or- w 

I 03 


II • I> CM> LO • «— 3 - r- ro *r- 
Ar- . CM -- ro cr. 3- LO C0 ro co 
ictr-vor-io -L0 -cm*— -o lo 
H - ro vo ro *— ro lo -*— -vo - 

Q A LO CM - .«-0 • • -3---VO 

X H -3 - •«- ♦ *- o o r- co - • 


pa • o *- 
o o*- 
oo II 
H LO pa O CM 
Xr * ho ii 
o i Xo < 

o n oto> 
OO I - 
H !XI X ll • 
X - -<XO 
H «“ • X*- 

pa*-o -* 

A n ii ro <m 
H O O ll - 


W - 
<3-— 

II vO 
pq ^ 

- paro 
o • O lo 

ll C0 H • 

O II -LO 
WX^ - 
o pa ii <m 
h -pa 
- • par- 
• LO O ro 
*~vO U 
II OH 
Q 
H 


roro - 
rooo 

• LO vD 
VO VD LO 
O -CM 
CM * 

-cr. 
r-*- 

O I> VO 

• LO CM 
CM -LO 
VD • *— 
T-r- . 

-3'*- 
ro lo - 

<M -3* C0 
CM 

ZT * O 

pa ii A roro*— 
XX A 


-cr> r- *r-ro 
* o ro cm - • 


'O 
- u 


* — « — CM vD 

ro cm- - -o 
co cr. • 

• lo -r- 
co *- r- 3- *- 

CM -CM *— 

O CM O 
CMIO*- -LO 
LOLO - -CO 

• vOlO 

CM*- *CMr- 
cm *— cr. co • - - 
- -ro *— co . co 
cr* - cm co • 
o lo 
LO o 

-CM 
vO *— 


3 CM CO 
•LO 
-o zr 

-L0 *— 

- r- - 
-co 
o> • 

•CO 
3 3- cr. 
-3- CM 
* vO *— 


r* 

C0 vO - • v 

■ LO • CM 
CO COCT.CM*— 

«-cr.r-r^ 


X -AHHA * 

<X - 


ox : 

paro H A ro 


H 

1 OX 

A • <<0 

<CM II 


A 

i ACO < Q Q CO 

P -O 

X 

Q 

O QWWH 

A — X 

H 

<H 

tO H A A 

A n H 

to 

A A 

WOO 

H03 


tO ID 

0>UH 

rtZH 

W 

Oiu) 

C3<3<3 

<3 

H 1 

xl 

w| 



cm<«: w 
ll A A f=i 
H -H - 
X -CO 

- *3-11 
•3- II X 
03- O <C 

* lo x pa 
cm ii w «a 
- - pa x a 
•X X 

kOO <£. w 
ll 


-CO *- 
cm ro 
CO -co 

• « CM 

10 ro lo 
cr. lo o 

-r- • 

• CM *— 

o - - 

11 * • 

XO*- 
< II II 
A X A 

A «C < A A 
H P3 X A 3 A A 

m x o < < «: 

A <C tn A 
C3C3C3 


> 3 LO 
• 

-3" CM 


CO * 3" 

ZT • - -O 
CTv CM • LO 
cr. .cm 
vd ro cr> *— r- - ,— 
«— vo vo • • cm 
- -r-*-«-co*- 
• • *. - lo cr» - 
O CM • • ro CM • 

ii *— a. a. - - cr- 


'HUJ 


A CM LO LO O 
O II II II N 
O ro ro 3- O 
3 A HH > 
<c foe tx. «< 


O LO 
II II 
A O 
> H 


cr. 
vD 

10 Q ro 
-Xu 

3 A < 

• <3 H 
3 n 
LO X 
LO <C 

-CM A 
CO CM - 

• OLf) 
vO • CO 
3*- II 
LO II X 

-A< 
CO X > 
•AX 
CT> O - 
ro oo 
to H3 
- - II 

• *— H 
cr. ii pa 
— AX 
to A 

11 O *=C 
AO Q 
HH X 
< rt 

A 

«3 


II 

A •— 

n h n 
xpa*- 
wxo 

Q<3 -< 
X CM - 
w o*- 
c3 -ro • 
3 • vO 
CM -CM II 
cr. *- ii A 
ro 3 ii A A 

• co < < « 
•XW - 
U XO — 
A < - II 
AO • Q 
W -o 3 
X • O A 
<OhH 
AO II - 
a. V) cm 
u O n 
LOG -N 
r- Xroo 
cm wlox 
ll H -H 

wo— - 
in - ii — 

A — < ii 
- II H3 
3 Q Q H 
NO X O 

X wo 

«— H H H 
n 

D<<«! 
XQQO 
a w pa a 
H a a «: 

H O OH 
O H A 
C3 C3 t3 


88 



QSRA LANDING CALCULATION, ENGINE MAP FROM TEST DATA 
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GEOMETRIC RELATIONS OF AIRCRAFT/OBSERVER 

KI XI YI ZI R THETA THETAF THETAH PHI TI TAU EPPI VI 

GEOM: 1 - 2551.9 0.0 336.0 817.0 96. 7 29.8 91.7 57.3 20.89 21.60 55.0 118 . 


m in m in 


r-.rOO'f'rO'jDCT'vO'Or-H 


' 3 -CMMO'O^ 

LnoOLTTr^<rr^LTir^-oco 


rOOsOmr^r— IP^rOCMOO 


in to in n st in eo o w 


IT|K)K)(MOOrOC 


>orsincOHoinHCMo 

meoirjr>.moomo 3 '£>CT» 


CT'r-r-^r^rsjor^s^' 


LPl sD \P CT' LTl fO LTl r-H 

incomr-.inoO'.neO 


CM II O' □ CM II r-H □ <f II 


int— OJ»— » 0 »— LT»h-< 

OlTl—TLO— J\T — ILO— I* 


Ml C II vO II (Ml >0 H 

tft—'fH'Dh-lTlHHl- 
OlO— JIT)— I vtf - — JlTl — ) HD _l 
LU X X X X X 

Q 1 Q. CL 1 CL CM d Q_ Q- D- 0 - Q- 

o r-»cMCMcof^--HsoiOsor^cT' eoocO^oiniriHofocovo 

HlOHsAinOLFlOr^OHCO 

LriLricOLnr^'Lj-r^Lnoo->oco 


>z3(Mr'vTO<J-CMCMsDO'or'. 

<t-mooinr^*vrn-inr--'£>oo 


-oO— i-vJ*— J*-»— Jr^— 
jsj-zinzezinz'oz 


in 


CM 


sO 


CM 


CM • M- 

•. . .in ‘i-i • in • o 

HlrtMO*flC 3 'OOONC\lN 

u_ >3- m <r m **d 


pv. CM 

CO >-h c 


o 

LU 

to 


ZD CM in rO 


o CT* rO CT' K) in C 7 > < 7 * O CO CM 

CM T» 

r— ICM-Hir 
O Ll_ (M s£ 


in 

00 


ZD (M 

< 


> □ cm ii m u m ii ro □ 


v 3 " H*Dh*Oh ,l C 3 H(MI— 

om-jin-Jin— im_ i'o-j 


(MO Q_ CL. C 
OOCQC 3 CMCMCMM-C 


r- o 0 cm 


in ii m □ in ii io ii nD 


-CO— I'D— IM-^JCO-JCM— » 
jltz in z<r zmz'oz 


r-i so ro o 

CO • r-H • nJ- • in .00 • 
- ■ >3" • !-» • <}- • \D • <=> 
)j_^rsh.oiooo'MOco 

■> u_ vj- m m* m 


cm oc 00 


m 

ID CM 


cT'inc3CMK)M _ f^mc3CM 


H O in M3 H oo o >J- CM CO ^ 
u.N'Oiri'd'iO'O'O-f'O't 


* 3 - ii r-> M t» cr* U 


K) h* I - 'J" I — V3 k 

om— rin_ im-Jin-j 


cm q o_ n_ d_ a. 

oo^-iM"'or-^r^c3sDC3vj- 


io^Hvor--coo'or^^(MO' 

voincoinNxrooincO'003 


ii ,-h □ nj- □ c^ ii cp □ 

c 

-t-v ioo — ico — > oo — > ro — i 

JazmzMZinz.'OZ 

: a. cu Q_ a. o_ 


•. • ro • CT» • co • • o 

-•»T-NC 0 M>r s '*oor'.M*c 0 
_ sj- in sj- vO so 


CD || 

. -H □ 

m <c • 

in ) — p-v — i 
ID Xl" Z 
X CL. 


O ii o II ro II 

CP' —I CM — I CT' I 

in z in z in x 

a_ cu 

3 cO m rO 
. ro • o .m • 
j ■ cd .cm • r- 

. c> rs o r' o r-« 


M" so 

CM • » 

r-H ' 3 * 


00 

• II c 
ro 

CM om a 


in 
•. ro 


H 00 N^CM<MOH 00 H 


o 

<P LU 
• CO 

o cm r-- cp p^ 

'O'f • 

. c=> o ro 

M- ro vO sJ" so 

CM 

M- 

P^ fH rH O' N 

VD □ 

m o ^ vo- 
id CM nD M- NO 

c 

00 1 - 

ro >o cm f-r M- 00 »-r r>. in 

m «. 

r— oM-^NO-incomro 
ll t-i >o in vt- vt -o ^ <r 


iQOo-d-OMNCMO^'OO^ 
j in 'f- CD • 

> r-H ct 9 m in n- 


MoOMMMON'OIOtOin 

in 

intn'OM-cMr'-r-'in'O'oom 
h m >t to in >o <s- vo in 

ii 


OOIOOlDsONHCMCMno 


invf'O’V?'tHH> 0 vt^r* 

HvDin't<t* 0 ' 0 'J"'Oin 


>omooHeor" 0 »o 


TromoO'Dvj-'O-sDin 
rlVJlrt^Vf 'fl'O'f 


mC7'>-r\JT0CMCP'CT'C^CT'CMC7'O o>— c0^O'0Kir0'00"£rs rO>'OHvDrO(M<MCM'OMr' O>*'0inH00c0C0on 


so cO'OfO'O'Oinoiri^r' 
ro - >fl in sf m in mi \j- >o m 
r-v- 1 — 


00 ^ >0 o (T> pv MJ o CO 

.. so in m- m* m >j- p». m 


hv ro vfi rs ro (M r"^ 

v vD in M" ^T" vO M 3 M" 


XCPHO'flor0>0O'r0>000in>J - 


LL CP r-HII inrOrOfO^HHs|-OCO 


NCOO 

CP' X ' 


oHoooiOKir'inmroH 


ro CM 

I 

II CPv 00 C 


> ro in 00 *— * oO rO 


0 *J-H«OOM«OlMM^in 


>«-ir^CM00CT'r'r'00CDro 

> «o in vT- ro in o vT r"D 


ro CM 

I 

II Or— l>DOtMO''TT' l J*r' 


>X'0’rOC7'00M-CMrvC7'C3r-l 

• i oM-M p romoM-r^o 


o co m h in co cm ro in 


II CMinHHCOOOOH 


.rocMU-iooCMr^r^ 

3 O O X * - • • 

<— i 2 i— 1 1 ro stf- P' 
ro -HV 3 J-'t 
co i 
UJ 
O 

oHQiooHHCMnoomr^ro 

in r-H id • 

motP't im^ 

CM CO r-H O vJ” 


CT' O' cp oo <j- 


v co so m r— i <o m 
- CM vT vO in sO VO 


in cm co <r >r ro h ^ \o in p 
X 

2CMCMOtPrOHNOOH 

r-. h vt o- ro n so n r"D 
• CO I 
•tf- LU 
rO O 

snzor'eooorocMnomr' 

CM 

I OOiOtOoCNItP'OCMlMO 
mcMvO'j-inrov^-soinsOvo 


LU c 


i CM C 


CM CM CM 


3rocMoO-— 'r^incOr-H^HCM 
m Hvovtf-mroin'oinn-'o 
• to I 
r- lu 

r-H O 

rooccooininwflOH'OrHoo 

CM I 

I ooroiACM'OiOr'Woro 
io n so vt m ro in vo n r- >o 


lUiO'j-inmoO'O'O'O 

x 

2rOHCMMooOtOr-i 

i r— iNO'j-in'd-invoin 

• to i 


w «f vi- ^ o «o sr m o 

CM ID 

I O h CM o CP P- N ro 
to cm vo >t in o m >£. m 
■> 3 - » 


LU 

o 


_i o 


LU 

Qi 


LU 

or 

o 


90 



Or~*fOKlCTv»J-00'^<7'CM 




intocMtooNr-»mHc 


tOCMfONj-tf-CMCMOHfO 


•d- II K) II «0 H O It H II 

M-M-IOK 
oin—iin—im— iif»— iso— » 
lu z z z z z 

CM Q O. 0- Q_ G- Q_ 

to o in in cm to ^ CM in *o oo 

H • • * i— I 


HHH^OH'Or.ODHlTlH 

oomcOsaeomoOincOsocT' 


o ii o ii in ii so ii h n 

p>» i- »— 1 1 — r-H i— m t— p*» h— 


ND C 
CO to O r 


a. a. 

H CO H C\J ^ 


H(M'J-P'C\JK)OH>OONrO 

cT'incosocONoa'LncOvocr' 


>11 cm ii co D m r — 1 1 


CM Q c 

COOOr 


HlON^C'HvOrO 


r* u to n to u *3- ii o» n 

17* h- (Ml— to I— COt-COt— 

Om—lsD— IsD — I in _l NO —I 
UJ z z z z z 

cnj Q a. cl. a, o_ o_ 

C0<re3OCMvJ-(MH\0OOC' 


O II 

• CM □ CM 

in «c • 

im- oo i h 

lu <r z so 


00 

in * to 
■n • to • 

CM-'J N i~l 
roiLsr so 

in to 

CM • II 

so in cm 

r-v * i . . 

m cs a. cj c 

O' \J- LO vO C 


II N □ vt □ fO II 

—i in _j o* — i «o _i 
z in z in z no z 

Q_ Q_ Q_ Q_ 
K) f— I 


• vO 


CM 


m 


• NO 


nO 


NO 


O □ 

in *c 


r^. ii ctn n nJ- □ o ii ii 

— w —i nM O' I O0 II'" — I 

Jinziozifizmz'oz 

CQ-Q_Q_Q_Q- 

r— l ON r-H nO 

(-1 • \o .to • to • CM • 

- • NO • Nj- .O' * N D -CM 

-r^r^-tor^oor^c7'r-.oooo 
_ n*- no m m no 


> K) £L IO Q. In 0. O CL CO Q. 

in no t/i in in no in nd in 


r*. II 

c • 

- CM _ 


r— I II r-. I) r— I □ CO □ 

Nj-_ IrH—lsO—JCO— I 
nOZnOZiOZnOZ 

a- o- a. o_ 
in CM 


H ■ ■ NO 

- ■ oo • in . c« 

-IM^tfNOOOr 

- sT nO 


m 


■ N3- .to 

. p-n o» oo 

NO 


in < 
in I— r- 
lu in : 


nT U. Nf 
00 nO 


in II CM □ CM II 00 II s7* II 


T3 

cu 

3 

B 

x> 

§ 

o 


nO 

■NtO 

o 
m uj 
■ in 

H tO 

NO Nj- . 
• I— I 

in to 


oo 


CM 


CM CM CM 00 


NO M- • 
• vO 

oo to 


> 

w 

cq 

C 

H 


NO ►— 

Nj- nO rH no cm O' in cm c* O' cd 

■ • p^ - 

cr. in hoinoiniMMiniocT'o 

NO in LLPJnO'0^-'3-P''0'3 - '0'0 

o o 

oo* HOMO'CNflincrcoiriNj-H 

• • oo o 

C3oo in nj- - o o ' pn oo oo no m o im 
r-~ m rHNOinNj-NTNONONd-r^NO 

ii 

0 

oo nj- to >- nj- no no to in in co *-i >-h to 

cd o n o cO'frsCMN.NorNrNHto 

r^vo - *oin'd _ N3‘*OM3N3-r^«o 

in i— 
u. 

nJ-i—i oeomNDOinO'O-NNflro 

• » to 

-O HNiniHvONT COCOHnD 

p-- so nj-o no in in >t no »o nj- no 
n. o 
CM CM 

1 

oo ii NmNNiriNoioo w 

• • o 

cm to x m to to cm m to a* o ro in 

n- no • i m m <r o no in no 
o 

z 

no on ujonJ-i— ir-iinror^oOoocM 

• • i 

r-i CM 3 CM CM H *d* nJ- CM OO •— l H in 

r- no i— i H«ointn>j-o>oinrso 

• to i 
to LU 
00 O 

into oQcrO'tinminHNCMtNCj 

• • cm 3 

CD <f I OOlOCOiniOrtMOONO 

p*-«o inw'O'jinNf-ONOinfN.^ 

in i 

m zz in 

— i o _i 

<C LU LU CQ a_ C 


cO to nJ- rO O' 

3 cm no in no no 

« 

CD h- 

NO CM CO in P^ CM CM in to NO r-f 

O' 

HrONCMMONO'CMMO'Nt 

LLCMsONO'J-mr^.sO'J-vDvD 

00 CD 

CMotoaNfON3 -CM»— inJ-hcOnO 
O' 

inr^co— ioNCMCMin>j-oNir> 

H nO \D nT ld r- no NO so 

ii 

o 

.— i>-o.-Hvj-»-HCMC\/<J-r^c\jr~. 

«d" HM7> H i — I O nD in O nD 
no ‘H'OininmrN'O'tpNNO 

m t— 
lu 

0'j-o«j-oocMNOHtoin*j' 

CO 

• ONj-of^cMooOr^r^oo' 

icoo Nin m in no <o ^ in no 

u in o 
<r CM CM 

o i 

oc 1 1 no »-i Njfin cm no o oo to 

0- O 

o.oX(MNom>i-(MNrNeooco 

<r • i >o m m nJ- > o n^ nct r^. no 

CD 

li_ 

o z 

UlOOO'O'CMONj-NMnCSJ 

H- X 

z 3 CD m cm m eo o r>. CD o 00 
hon HNOininNj-NO'Oinr-'-o 

o • in i 
o_ in uj 
NO o 

1- 'O'acr^cDtotocMootooONj-o 

in r-H HD 

UJ | ONOONN J-vflHCMT' 

in oi h o m m 'j 1 no in >o 

O NO i 

— j 

o 

H in 

* o _ j 

* LU UJ CQ 0_ < 

X O Z 0£ CkC C I— 

X 


cMcoNDoomcDNO'crroNcj- oo o*or > NO'oinroHcor 


<r o m cmd mm nt m m cm 


nT O 

moocO'ONOOCT'CSJPOCMCO 


to>-oHincMininineoHoo ND)-coo'NDioooHinrN(\j 


ONtONj30'in^M<t-HNt 


I'D’OtnrNrNOiO'J’ 


njooooinroinincopj 

X 

3«orN<d‘pNoooinooooo 
r-N i no in in in no nd nj- pn 
• in 

oo lu 
<r o 

OOQCr^o«d-<j-inrH«cMMNO 


* □ 
X LU 
X O 


OHOrsOO<f-(CIHHN 3 - 


ii HcOM^oniiorNinH 


UJ (NJ COHHOCOHH CMH 

x 

3 vJ-non o to ioo 
m i so m m m «n n m p. p. 

• in 
»— l uj 
to o 

M^OCMninONflOlDHCNJ 

H 3 

i omoOHooo'NoO'vd-ojH 
tnHNOinmNj-NONomr^n- 


eo 


I 


u 


91 


GEOfl : 9 -1616.6 0.0 212.5 666.3 126.8 169.6 127.2 66.0 28.89 29.67 55.0 118.2 

SOURCES WHEN XO--2000.0 FT, Y0= 500.0 FT, TAU = 29.5 SEC, R □ 666.3 FT, THETA □ 126.8 DEG 

FAH : -15.2 -7.6 -0.1 6.9 13.6 19.8 25.7 31.3 36.6 61.2 65.6 69.6 53.3 56.6 59.5 62.1 66. 

68.6 67.6 68.6 72.7 69.7 71.6 70.6 OASPL = 79.0 PNL = 91.8 PNLT = 93.0 
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GEOM : 3 - 2317.5 0.0 305.1 1092.7 72.7 92.9 72.0 73.5 22.89 23.85 55.0 118.2 

SOURCES WHEN X 0 =- 2000.0 FT, YO = 1000.0 FT, TAU = 23.8 SEC, R □ 1092.7 FT, THETA = 72.7 DEG 
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XX X XX 

GEOM: 7 - 1898.7 0.0 293.9 1090.3 98.0 120.9 98.2 76.1 26.89 27.80 55.0 118.2 

SOURCES WHEN X 0 =- 2000.0 FT, Y 0 = 1000.0 FT, TAU = 27.8 SEC, R = 1090.3 FT, THETA = 98.0 DEG 

FAN = - 22.0 - 19.2 - 6.8 0.2 6.8 13.1 18.9 29.5 29.6 39.9 38.8 92.9 96.5 99.8 52.8 

61.7 60.8 61.9 65.7 62.9 69.6 63.5 0 ASPL = 72.1 PNL = 89.9 PNLT = 



TABLE V. - Continued 


l l l 


rH 


00 


sO 

m 


vJ- 


O' 


rs. 

rH 


in 


in 


si- 

sO 


in 

sj- to o in so cm 

in 

oo 

co 

rs. 

00 

'd- rH 

rs. 

in 

rs 

in 

oo 

S3- 

|s. sO 

co 

*d- 

it 

sd 

it 

ro 

II sJD 

ll 

sD 


fs 


CD 

h~ r-t 

h- 

in 

—i 

m 


in 

_l sO 

_j 


z 


z 


Z 

z 


CL 


CL 


CL 

CL 

<r 

'i- 

in 

CM 

MD 

in os 

00 

fs. 

00 

|s. i-H *i“ rH 

sO 

in 

rs. 

m co m rs o 

oo 

to 

n 

m 

II 


ii in 

□ 

oO 

i 

in —J CM -J CsJ 


in 

z 

m z m z so 

z 


CL 


CL 


CL 

CL 


in 


rH 


sd- 

in 

CD 


'i- 


i — 1 

• CD 



O' 


SO 


CD • 

sO 

O' 

vD 

sfL>crixto 

fs 

in 


in 


in 

sO 



□ 


II 


II 

II 

to 


-sf 


to 

sD 



-J 


1 


_l • 

_J 

O' 

CL 

to CL tn CL to 

CL 

m 

in 

in m in go md 

tn 


c 


c 


<c 

<C 


o 


o 


o 

o 

o 


nJ- 


m 

rH 


O' 


CM 


SO 

sd- 


m 


m 


in 

sO 


si- 


'i- 


sO 

sd- 


O' 


I — 1 


|S. 

'd- 


in 


in 


in 



CO 


'i- 


sO 

M3 


oo 


CD 


00 

'd- 


in 


in 


in 

' O 


O' 

rH 

rO 

m 

r—t rs. 

o 


Ln f-'- 'JD tf'l 

to C5 W N 

m m %o m so 

(\JCMM>>£rO(AoON(A 

sO'JDmoOCT'OOtOOsCMCO 

moOinrs.inootnrs.sooo 

sO 1 1 Ct- It in □ CM 1 1 cr> l| 

mt— sot— cor— mi— cmi— 
om- im—JiTi— iiti- i so — j 
lu z z z z z 

CM Q Q_ CL CL CL Q_ 

eOfOr^oocooO'J-rOsDoOtO'd- 

1 — 1 

H^oinnconcoo (T'fo w 
cDincotnr-^moomr^voco 


in c • 
ioi-n 
UJ sT 


CM »- tO 
00 LL V3- 


. ro 


*tO 
O 
00 LLI 


-d" sd- 
O □ • 

rH in 
ZD CM 
C 
CM I— 


00 

O' 

in 


00 

in 


COfsrHrHOOOCMCMtnCM 


Ors*O^O 00 MOK)O 

ineomn'OooincO'O^ 


cm □ h 11 cr- □ in 11 O' 11 

sj-h- rs.|— oOl— oOl— tot— 

o m 1 in 1 m — 1 in — j so — 1 

LU Z Z Z Z Z 

CM Q CL CL CL D_ Q- 


OO'C'OOrNCMlOCNJCM 


NrNineocM^ co'tfoc. 
incomr>.inooino0'00' 


sr 11 O' 11 o* 11 so 11 00 11 

sj’H^Hnh-CM-KU- 

om-iin_iin— im-J'O-J 

LU Z Z Z X Z 

CM Q 0- Q_ O- 0- CL 


rH fO r». I — 1 


in m m m 


o O' n vo (nj in o 00 


r-ninoonow^oj®' 

tnooinrvinoomoo«ooo 


sd- 11 so 11 in 11 00 11 'd- □ 

v3" H sO I — 'OHO'h*lOI— 

Oin_nn— im jin — 1 so — j 
uj z z z z z 

CM Q Q_ CL CL CL CL 


ootoiomooeoco^cMon 00 <=> in r- O' O' co rs o> ro rs so 00 r-n m rs so no sd- cm cm -<0 in cm 


□ 00 □ st □ W II H □ 

_j ©0 1 so — m — j ' d - —i 

zinzinzinzscz 


. CT' • 


■ 

IO • O' 

O' sO lO N O' N 

in m m so 


rHOrHsOCO^h-COCMOst^ 

HincomNineomoo^co 


• o □ o □ 00 11 «-l II SO II 

m 

mi— 00“ I' 7 '— lsO_-lr-H— JLTl— j 
Lusd-zmzinz'ozsoz 


fs. rH ts *0 rH 

1 • s£> • r-- • *in • 
• ro • o • i-*. • co • cm 

-'a-t^* 0 'iH.int^-CMr-sooo 


H'OH'OINOO'OnO'J-st^ 

rHinoomi-vinoosooO'oco 


l 00 11 00 11 cm it on □ 


00 ll vj- m in 


sO 


. • K) 'O' • sD 'O' »CM 

-' 3 'r^-O'M 3 'd - r^rOTH.ps .©0 

. st m in so so 


rH r- 


si to o r-. so <d 

s • _J • _J ■ _J • — I • — I 
5 O£Loa.> 3 - 0 .t 0 fl.ML 
H»J-COsJ 3 l/>inm’sOCO'£>LO 

c <t c <£ <C 

i 00000 


CM 

in 


so in 00 


CM al CD rH 


m 

O' 

in 


o 

H LU 
• in 


ZD CM 

< 


n io (MM ^ r"j- n 
m'iT<fn-inro>o*cr 


00 00 

to - • 

rH h- O' 


HHrHsONCOmsOiH'J-'JO' 

cMmcomr-moO'OoO'ooo 


cMDinOsMi iriii no 

c 

-co-joo— I'O-— icM-Jin-j 
j*o-zmzinz'oz'oz 


in * cm -to • rs ♦ o* • 

- • K) • O'* • in 'O' 'CM 
-<rr-. 0 "X>tOT-»tor>.sDoo 


O' ll <r in in 


CD si- in to 


fO CkC o co to 


rH ro m in 


inromcMNNHIO^) OS si- H in N *£) to O -if H ^ rs sCtOtO-O-OOHinOH 


hi— o ici 00 ro o sj- co in h rs 
ium >0 m >f m f"0 sf f"f 


Hi-oinooto(Moo"oCMin 

LLCM'Oin'j-Nrr^-sO'O’r^.'cf 


OrOoroCMin'tf-oOtOrO 


hi— omooiooOHO'-owcM 

u. n so m >f >f n -d - f rs sf 


r-. co ^ <m m cc O* ° . 3 ! o ct- - o csi ro cj -h in co t* >o o o irvo o- d- o m co h ism no o r. in ro ro -o in cr .h o- <=> ^ o in o- o csj r-< csj o- nn rH 


-D'fcOCOOtO'fCM 

in-d-'d-'o-orosom 


imr^in^cr'inrococM 

i 'O in <r <r o 'f 'em 


lo-f'DMnooeo^cocMH 

rHrH-^>m' 3 -s 3 -vO' 0 ' 3 -r^in 


cointotocMtocsoo CM?iH.c0CM0scMCMCMtO'd-'(f t-s>-rO'd-'d-rH'Osomsom'd- in>-'d-'OtoososC'OsDincM so>-'^inoi^CMCMos<^i-vso 


. to lf| so CO f"fllTl ^ -D 

«omsj-si-' 0 « 0 'd-'Oin 


co-finNcOf'O'totsi'O 
» soin'd-'d-sosos^r-sin 


cO-fin-oscmotMoto 

*cin \f m - < 0 r* sr is. m 


cOCMrOr^-tOO-oo-H 


oOMromosr-f to 


CMtOtOiHrOoOmrH 


fxNroo'o(\jrsj't 

lT)(\JtOO<7'sO(MCM 

sJ-instsDlO'f'O'fl 


OCDr-'.tOsDCMOtOoQ'^'O' 

CD 

■ oHsDtoMrNinsfl 1^00 

wo iom<r'f-^'OM “'£)'0 
CM CD 
CM CM 

I 

I I orstotO(M«f e-toon 



oX'flW'-'oo'finco^H 

• I -DLniTlsl''( 3 >lLfsOsO 
O 

z 

LUrOfsvrs.rs.CMCDCMOOCMO' 



3 rO'-too^-tinroino'co^H 

in rHSfl'flfl'f-C'^sf'OO 

• in i 
rH LU 

to o 

NCZHsOHHCMCC^CMCAtO 

rH ZD 

1 O rH CM sO to <t rt to rH sO tO 
inCMNDsJ-in-J-sDsDinsDsO 


in 


OsDinifHO'OOOHlflH 

in 

• OHMOWN-fl^OCMH 
CMo -o m sd- sj* so »o in rs -o 

rH O 

CM CM 
I 

11 sa-roininsDcocMsnrH-d- 

o 

oXintOHO-fl-fC-HWH 

» i vo in in sr o so in f> o 

CD 

z 

UJrs.rOC'Cf'D'ftOHIOtO 



12 CM CM OQ rH in tO CO tO rH (M 
vj- rH-O'fin-d'sD'Dinf "0 

■ in i 
<r lu 

rH O 

sDQJin'shtOtO'IHMOinocA 

HD 

I O O to sfl to <t (\J N st o to 
incM'O' 3 -in<fsosoinr-.N 0 
O' j 

s: oo 


OCONtOvO-flOONlfl-f 

rH 

.OiHNtOCOOinoHtOO 
rs cd soin<f'cf'^ 3 f^inr^sjD 
O' CD 
rH CM 
I 

ii cMintorO'^joOi— t r-s cd «o 



oxmtoHointoofMtoo 

. i so m m sd- so rs- tn rs 


UsO'frsrssD'j-toHMso 
X 

3 CMCMC 0 -— <'J-CMC 7 '<fCMrH 

cm rH«o<fLn<f'Z 5 soLnr^\o 
• in i 
rs. LU 
O' o 

stQ'tOLnHHsD(MOlT|(>'f 

r-t ZD 

I ootosototOHtomoto 
intMsD<rins 3 -*os£iinr-.so 


JCOMDOsTCMsOetO^flsssf 


trs.toeointooHtoa- 

som'j'^f'^rsxinr^in 


ii cMincDCDCM<rroc7'CMin 


UJ'jD'd-'d-'tf'CMOinrO'd-rs. 
X 

3 (MCMcOHtOHO''f(\JO 
CD H O -f in -J 1 SD >D in N \fl 

■ in i 


i o o to in cm cm os oo m rH cm 

incsj'O'fin'tin'Oinf.'O 


ea 

o' 


3l 

o 

LU 

O 


94 



GEOM s 1 - 1568.9 0.0 206.6 785.1 93.0 18.5 91.1 69.0 29.28 29.96 55.0 118.2 

SOURCES WHEN X 0 =- 1000.0 FT, YO= 500.0 FT, TAU = 30.0 SEC, R = 785.1 FT, THETA = 93.0 DEG 
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SOURCES WHEN X0=-1000.0 FT, YO= 1000.0 FT, TAU = 37.2 SEC, R □ 1035.8 FT, THETA □ 103.9 DEG 
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SOURCES 10HEN X0= 0.0 FT, Y0= 500.0 FT, TAU = 93.1 SEC, R = 500.0 FT, THETA = 90.0 DEG 

FAN = -13.9 -7.3 -1.6 3.8 8.8 13.5 17.7 21.6 25.2 28.3 31.1 33.5 35.6 39.9 38.5 39. 

90.2 91.9 90.7 39.9 37.3 35.7 33.6 0ASPL □ 50.5 PNL - 63.3 PNLT □ 69. 
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TABLE V. - Continued 
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GEOM s 9 333.6 0.0 0.0 1059.2 108.2 190.0 108.2 93.3 95.67 96.59 20.0 109.2 

SOURCES WHEN XO= 0.0 FT, YO= 1000.0 FT, TAU □ 96.6 SEC, R = 1059.2 FT, THETA = 108.2 DEG 
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TABLE VI. - OUTPUT FROM EXAMPLE TWO 
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GEOM: 19 2682.1 0.0 126.3 1289.7 155.2 190.0 156.9 112.9 28.19 29.32 85.0 198.6 

FAN : 1500.0 500.0 29.316 79.9 88.5 91.2 
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TOTAL : 1500.0 1000.0 17.180 88.3 95.3 97.7 

GEOM: 8 1087.3 0.0 0.0 1081.8 67.9 10.0 67.9 85.9 17.19 18.13 85.0 126 

FAN : 1500.0 1000.0 18.139 78.8 92.9 95.7 
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GEOM: 18 2534.3 0.0 110.5 1442.9 135.2 190.0 135.7 100.2 27.19 28.45 85.0 148. 

FAN = 1500.0 1000.0 28.450 80.4 93.7 95.2 
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VALUES OF PNLT-MAX 
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TABLE VH. - OUTPUT FROM EXAMPLE THREE 
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OUTPUT FROM EXAMPLE FOUR 
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ENGINE PERFORMANCE PARAMETER = 37.78 
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ENGINE PERFORMANCE PARAMETER = 37.78 
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ENGINE PERFORMANCE PARAMETER = 37.78 
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GSRA ( YF102 ) NOISE: SINGLE ENGINE. NO FLAPS. NO ATTENUATION 
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TABLE EX. - OUTPUT FROM EXAMPLE FIVE 
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62.8 


SOURCES WHEN X 0 =- 7518.0 FT, YO= 0.0 FT, TAU □ - 3.0 SEC, R = 993.3 FT, THETA □ 32.2 DEG 
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SOURCES WHEN XO--7518.0 FT, YO= 0.0 FT, TAU = 0.4 SEC, R = 393.5 FT, THETA □ 98.8 DEG 
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SOURCES WHEN X 0 =- 7518.0 FT, YO= 0.0 FT, TAU = 2.6 SEC, R = 602.3 FT, THETA = 1 A 8.0 DEG 
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SOURCES WHEN XO=-7518.0 FT, YO = 0.0 FT, TAU □ 5.0 SEC, R = 993.3 FT, THETA = 165.5 DEG 
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VALUFS OF EPNL 

YO POSITION 
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TABLE X, - Continued 
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TABLE X. - Continued 
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2SR A FOOTPRINT CONTOUR, LANDING AND GROUND ROLL 
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CONTOUR LEVEL = 90.0 DB 

- COORD (FT): -7500.0 -7000.0 -6000.0 -4000.0 -2000.0 -1000.0 0.0 500.0 1000.0 1500.0 1600. 

- COORD (FT): 42.1 366.5 570.0 801.0 1074.9 1056.8 621.1 485.9 447.5 257.5 54. 

APPROX. CONTOUR AREA a 0.642E 07 S2 FT, 147.48 ACRES, 0.23 S2 MILES 



TABLE XI. - OUTPUT SAMPLES FOR VARIOUS OPTIONS OF IOUT 
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For IOUT = 0,1,0 = (compare summary of Output from Example One, table V) 

6SRA LANDING CALCULATION, ENGINE MAP FROM TEST DATA 
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CSRA FOOTPRINT CONTOUR, LANDING AND GROUND ROLL 
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